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ABSTRACT 

An  experimental  investigation  was  conducted  on  the  internal  flowfield  of  a  simulated 
turbine  blade  cooling  passage.  The  passage  is  of  a  square  cross-section  and  was 
m^ufactured  from  quartz  for  optical  accessibility.  Velocity  measurements  were  taken 
using  Particle  Image  Velocimeby  for  both  heated  and  non-heated  cases.  Thin  film  resistive 
heaters  on  the  four  passage  walls  allow  heat  to  be  added  to  the  coolant  flow  without 
obstructing  laser  access.  Under  the  same  conditions,  an  infrared  detector  with  associated 
optics  collected  wall  temperatwe  data  for  use  in  calculating  local  Nusselt  number.  The  test 
section  was  operated  with  radial  outward  flow  and  at  values  of  Reynolds  number.  Rotation 
number,  and  density  ratio  typical  of  applications. 

Velocity  data  for  the  non-heated  case  document  the  evolution  of  the  Coriolis-induced 
double  vortex.  The  vortex  has  the  effect  of  increasing  the  leading  side  boundary  layer 
thickness  while  decreasing  the  trailing  side  boundary  layer  thickness.  Also,  the  streamwise 
component  of  the  Coriolis  acceleration  creates  a  thinned  side  wall  boundary  layer.  These 
data  reveal  an  unsteady,  turbulent  flowfield  in  the  cooling  passage. 

Velocity  data  for  the  heated  case  show  a  strongly  distorted  streamwise  profile  indicative  of 
a  buoyancy  effect  on  the  leading  side.  The  Coriolis  vortex  is  the  mechanism  for  the 
accuinulation  of  stagnant  flow  on  the  leading  side  of  the  passage.  Heat  transfer  data  show 
a  maximum  factor  of  two  difference  in  the  Nusselt  number  from  trailing  side  to  leading 
side.  An  estimate  of  this  heat  transfer  disparity  based  on  the  measured  boundary  layer  edge 
velocity  yields  approximately  the  same  factor  of  two. 

A  rnomentum  integral  model  was  developed  for  data  interpretation  which  accounts  for 
Coriolis  ^d  buoyancy  effects.  Calculated  streamwise  profiles  and  secondary  flows  match 
the  experimental  data  well.  The  model,  the  velocity  data,  and  the  heat  transfer  data  combine 
to  suggest  the  presence  of  separated  flow  on  the  leading  wall  starting  at  about  five  passage 
widths  for  the  conditions  studied. 
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Nomenclature 


Bo  -  Buoyancy  param.  =  P(T-T„)R^Q^d/u^ 

d  -  hydraulic  diameter  =  4  x  are^perimeter 

dp  -  seed  particle  diameter 

d.r.  -  density  ratio  =  (T^-T;  J/T„ 

e  -  local  electric  field  stren^ 

h  -  convective  heat  transfer  coefficient 

H  -  boundary  layer  shape  factor 

J  -  current  density 

k  -  thermal  conductivity 

1  -  passage  length 

M  -  optical  magnification  ratio 

n  -  power  law  profile  exponent 

Nu  -  Nusselt  number 

p  -  local  static  pressure 

Pr  -  Prandtl  number  =  v/a 

q  -  surface  heat  flux 

r  or  R  -  radial  distance  to  axis  of  rotation 
R„  -  mean  radius  of  test  section 
Re  -  passage  Reynolds  number  =  dUj„/v 
Re^  -  streamwise  Reynolds  number  =  xu/v 
Rot  -  Rotation  number  =  f2d/u 
Ra^j  -  rotational  Rayleigh  number 
T  -  local  static  temperature 
u  -  X  component  of  velocity 

V  -  y  component  of  velocity 

\  -  velocity  of  wall  injected  boundary  fluid 

V  -  complete  velocity  vector 
w  -  z  component  of  velocity 

X  -  radial  (streamwise)  direction  in  passage 
y  -  axis  parallel  with  axis  of  rotation 
z  -  crossflow  direction  in  passage 

a  -  thermal  diffusivity 

-  temperature  coefficient  of  resistivity 
P  -  volumetric  expansion  coefficient 

6  -  boundary  layer  thickness 

-  boundary  layer  displacement  thickness 
£  -  surface  emissivity 

X  -  wavelength  of  radiation 
p  -  viscosity 

V  -  kinematic  viscosity 

0  -  boundary  layer  momentum  thickness 
p  -  fluid  density 

-  resistivity 

-  seed  particle  density 

a  -  Stefan-Boltzmann  constant 
tp  -  wall  shear  stress 

-  electric  potential 

Q  -  rotational  frequency 


subscripts 

BS  -  back  side  passage  wall 
cor  -  Coriolis 

f  -  fluid  surrounding  seed  particle 
FS  -  front  side  passage  wall 
film  -  fluid  conations  averaged  from  wall 
and  freestream 
in  -  passage  inlet  conditions 
rro  -  Indium  Tin  Oxide  thin  metal  film 
heater 

LS  -  leading  passage  wall 
p  -  seed  particle 
ref  -  reference  conditions 
TS  -  trailing  passage  wall 
oo  -  freestream  conditions 
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Chapter  1:  Introduction 


Motivation 

The  hot  section  of  a  modem  gas  turbine  engine  is  a  challenging  design 
environment.  The  turbine  is  required  to  operate  with  high  inlet  temperamres  and  aggressive 
blade  loading  to  provide  high  specific  power.  Aggressive  blade  loading  means  high  blade 
speed  which  converts  to  high  blade  root  stresses.  A  high  gas  temperature  means  locally 
higher  metal  temperatures  which  in  turn  create  thermal  stresses  and  thermal  fatigue 
problems.  These  demands  conflict  directly  with  the  limitations  of  common  (and  even 
exotic)  engineering  materials.  To  resolve  this  conflict,  since  the  1970s  bleed  air  from 
upstream  compressor  stages  has  been  used  to  cool  turbine  vanes,  blades,  casings,  and 
disks.  With  cooling,  engine  designers  have  realized  a  300-500°C  increase  in  operating 
turbine  inlet  temperatures  beyond  previous  limits. 

To  cool  the  rotating  turbine  blade  in  particular,  cooling  air  is  brought  into  the 
rotating  disk  through  intricate  mechanical  seals  and  enters  the  blade  through  the  root.  The 
air  then  passes  through  a  network  of  serpentine  cooUng  passages  oriented  along  the  span  of 
the  blade.  Raised  steps  (or  ribs)  are  commonly  used  to  trip  the  boundary  layers  and 
augment  the  heat  transfer  from  the  metal  walls  in  these  internal  cooling  passages.  Even 
higher  levels  of  cooling  are  generated  on  the  leading  edge  of  the  blade  through  the  use  of 
impingement  coohng.  Finally,  some  applications  require  the  use  of  film  cooling  to  provide 
low  temperature  boundary  layer  fluid  on  the  exterior  surface  of  the  turbine  blade.  In  this 
case,  the  internal  cooling  passage  plays  the  additional  role  of  high  pressure  feed  plenum  for 
the  film  cooling  flow.  Figure  1.1  depicts  all  three  forms  of  cooling  in  a  turbine  blade 
schematic.  This  thesis  focuses  exclusively  on  internal  cooling. 

Modem  turbine  design  depends  on  reliable  cooling  schemes  to  achieve  performance 
levels  beyond  the  capabilities  of  blading  materials  alone.  Even  temporary  or  partial  loss  of 
coolant  creates  aggravated  thermal  stresses  in  the  highly  stressed  rotating  parts  which  can 
result  in  catastrophic  failure  of  the  entire  gas  turbine.  Because  of  its  critical  role, 
considerable  effort  has  been  expended  to  accurately  predict  the  performance  of  turbine 
internal  cooling.  Design  engineers  realized  early  on,  however,  that  because  of  the  rotating 
turbine  frame  of  reference,  standard  pipe  flow  correlations  for  heat  transfer  are  inadequate. 
Rotation  introduces  Coriolis  and  buoyancy  accelerations  which  create  secondary  flow 
vortices  and  skew  the  mean  flow  profile.  These  flow  non-uniformities  result  in  non- 
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homogeneous  heat  transfer  from  the  different  passage  walls  depending  on  their  orientation 
(see  schematic  of  flow  in  rotating  internal  cooling  passage  below). 


This  complexity  forced  the  first  generation  of  cooling  design  engineers  to  rely  almost 
exclusively  on  empirical  correlations. 


Objective 

With  such  strong  techmcal  motivation,  a  substantial  body  of  experimental  and 
computational  work  has  been  performed  to  better  understand  this  design  problem. 
Experimental  research  has  succeeded  in  mapping  out  many  of  the  qualitative  trends  in  the 
performance  of  cooling  passages  with  rotation.  But  while  trends  in  heat  transfer  are  well 
understood,  the  underlying  mechanisms  causing  these  rotational  effects  are  as  yet 
unexplored.  This  is  because  until  recently  none  of  the  experimental  work  has  measured  the 
velocity  field  inside  the  rotating  cooling  passage.  Only  the  velocity  field  data  (correlated 
with  heat  transfer  measurements)  provides  the  complete  picture  of  the  rotating  cooling 
passage.  Computational  work  has  largely  corroborated  the  conclusions  of  the  experimental 
work.  How  calculations  provide  valuable  insight,  but  as  yet  there  is  no  comprehensive 
body  of  heated,  rotating  velocity  data  to  permit  code  validation. 
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Meanwhile,  aggressive  performance  goals  have  been  established  for  future  turbine 
applications.  The  next  generation  of  engines  must  be  able  to  operate  at  higher  turbine  inlet 
temperatures,  with  increased  blade  loading.  At  the  same  time,  combustors  are  becoming 
shorter  (to  reduce  engine  size  and  weight),  thus  combustor  exit  flows  are  less  uniform  with 
higher  turbulence  levels.  In  addition,  to  avoid  viscous  mixing  losses  associated  with  film 
cooling  flows,  designers  are  relying  more  and  more  on  the  exclusive  use  of  innovative 
internal  cooling  designs.  All  of  these  initiatives  are  being  pursued,  while  at  the  same  time 
goals  are  set  for  using  less  (not  more)  cooling  flow.  To  achieve  these  goals,  cooling 
designers  must  be  endowed  with  the  insights  gained  only  by  linking  the  observed  heat 
transfer  with  the  passage  flowfield. 

The  objective  of  this  research  is  to  provide  the  technical  community  with  the  first 
measurements  of  velocity  and  heat  transfer  in  a  simulated  turbine  blade  cooling  passage. 
The  method  used  to  obtain  the  velocity  measurements  was  particle  image  velocimetiy 
(PIV).  Thin  film  heaters  on  all  four  walls  of  the  transparent  test  section  provide  the 
necessary  constant  heat  flux  wall  condition,  while  infrared  imaging  of  the  surface  provides 
the  measurement  of  heat  transfer  coefficient. 

Definition  of  Flow  Scaling  Parameters 

To  simulate  the  flow  environment  of  a  turbine  blade’s  internal  cooling  passage  in 
the  laboratory,  the  characteristic  dimensionless  parameters  associated  with  rotating,  heated 
passage  flow  must  be  determined.  Maintaining  these  scaling  parameters  insures  the 
relevance  of  laboratory  findings  to  the  actual  operating  gas  turbine. 

The  important  scaling  parameters  are  derived  by  non-dimensionalizing  the 
governing  equations  of  motion  for  non-isothermal  rotating  flow  [16,42].  The  averaged 
Navier-Stokes  conservation  of  momentum  equation  is  shown  here  for  steady  turbulent 
flow. 


.  =vV^u-^-2Qxu  +  p(T-T«)(QxQxR) 

'  '  dXj  p 

(The  Boussinesq  [7]  approximation  has  been  applied  so  that  density  variations  are  only 
accounted  for  in  the  buoyancy  source  term.)  This  relation  can  be  conveniently  expressed  in 
non-dimensional  form  by  using  the  passage  hydraulic  diameter,  d,  as  the  characteristic 
length  scale  and  the  passage  inlet  velocity,  Uj,, ,  as  the  characteristic  velocity.  The  result  is 


(n  .win . 
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shown  below  for  the  x-component  only.  (The  asterisk  *  signifies  a  dimensionless 
quantity.) 
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Several  groupings  of  variables  are  obvious  from  this  expression.  They  are  defined 
as  the  Reynolds  number.  Re,  the  Rotation  number.  Rot,  and  the  Buoyancy  parameter.  Bo, 
in  this  text. 


Re  = 


Pdujn 


Rot 


Bo  = 


T-T 

^  ^in 

T 


V^in  J 


The  Reynolds  number  is  the  familiar  parameter  from  boundary  layer  flow  analysis.  It 
represents  a  ratio  of  inertial  to  viscous  forces  in  the  flow.  The  Rotation  number  is  peculiar 
to  rotating  flows  and  represents  the  ratio  of  Coriolis  to  inertial  forces.  The  same  ratio  is 
sometimes  expressed  as  the  inverse  Rotation  number,  or  Rossby  number.  The  Buoyancy 
parameter  represents  the  ratio  of  centrifugal  to  inertial  forces.  It  can  be  expressed  as 


Bo  = 


|3(T-Tin)Q^R^dVa 


^in 

va 


'.V 


r  V 


'.udy 


PrRe^ 


where  Ra^j  is  a  rotational  Rayleigh  number  [42].  Ra^  is  similar  to  the  Rayleigh  number 
from  free  convection  analysis,  the  gravitational  body  force  being  replaced  by  a  centrifugal 
body  force.  Alternatively,  the  Buoyancy  parameter  can  be  expressed  in  terms  of  a  density 
ratio  and  the  Rotation  number, 

Bo  =  d.r.(Rot)^  where  d  r  =  P'”  ~  Tin 

"pin 


The  bulk  of  turbine  cooling  research  reported  in  the  literature  uses  this  density  ratio  to 
express  the  effect  of  centrifugal  buoyancy.  For  ease  of  comparison,  the  density  ratio  is 
used  here  as  well.  The  geometric  parameters  of  relevance  are  the  passage  length  to 
hydraulic  diameter  ratio,  1/d,  and  the  mean  passage  radius  to  diameter  ratio,  Rn,/d. 
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Table  1.1  shows  values  of  these  dimensionless  parameters  which  are  representative 
of  current  aircraft  and  ground-based  turbines  [15].  The  range  of  values  used  in  this 
research  are  also  listed  for  comparison. 


Parameters 

Current  Studv 

Aircraft 

Land-Based 

Re 

8000  - 10000 

25000 

up  to  800000 

Rot 

0-0.3 

0.1  -0.3 

0.1  -0.4 

Bo 

0  -  0.95 

0.05  -  0.3 

up  to  8 

d.r. 

0.0  &  0.27 

0.1 

0.1  -  0.3 

R./d 

45.8 

50 

90  - 170 

1/d 

11.5 

12 

13-25 

Table  1.1 

The  only  parameter  not  well  matched  is  Re.  The  Reynolds  number  selected  for  this 
study  is  not  a  limiting  Reynolds  number  for  the  facility  used.  Re  up  to  124,000  [15]  has 
been  demonstrated  with  this  apparatus.  The  low  Reynolds  number  is  due  to  the  relatively 
large  passage  diameter  (for  optical  access)  and  low  fluid  density  (for  seeding  restrictions), 
which  were  both  selected  for  ease  of  demonstrating  the  viability  of  PIV.  At  Re=10000  the 
flow  is  generally  considered  to  be  turbulent  [16,18],  so  the  character  of  the  flow  should  not 
change  appreciably  at  higher  Re.  Future  research  can  investigate  the  effect  of  larger  Re 
now  that  the  fundamental  research  tool  has  been  successfully  demonstrated. 

The  non-dimensional  parameter  chosen  to  represent  the  heat  transfer  at  the  passage 
wall  is  the  Nusselt  number,  Nu: 

Nu  =  ^  C3C  ^measured 

^  ^  ^  ^conduction  ^  ^ 

The  Nusselt  number  is  the  ratio  of  the  actual  heat  transfer  measured  (by  convection  and 
conduction)  to  the  heat  transfer  by  conduction  alone  through  a  stagnant  fluid  layer  of 
thickness  d.  Nu  is  used  exclusively  throughout  this  report  to  characterize  the  wall  heat 
transfer. 
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Previous  Work 


As  far  back  as  the  early  1950’s  (Barua[3]  and  Boyer[8]),  papers  were  being 
published  on  rotating  duct  flows.  Much  of  the  early  analyses  drew  from  experience  gained 
studying  bend  flows  and  curved  passage  flows.  Hill  and  Moon  [21]  showed  that  the  effect 
of  rotation  in  the  orthogonal  mode  (flow  axis  perpendicular  to  rotation  axis)  was  two-fold. 
First,  it  induced  a  double  vortex  secondary  flow  and  shifted  the  core  flow  to  the  pressure 
surface  for  radial  outflow.  Second,  rotation  reinforced  turbulent  fluctuations  and  enhanced 
turbulent  mixing  on  the  pressure  side,  while  on  the  suction  side  rotation  retarded  turbulent 
fluctuations.  The  combination  of  both  effects  created  higher  skin  friction  and  a  thinnpr 
boundary  layer  on  the  pressure  surface  and  the  opposite  conditions  on  the  suction  surface. 
To  isolate  the  effects  of  secondary  flow  and  Coriolis-induced  instability,  Moore  [39]  varied 
the  width  of  a  rotating  rectangular  channel  while  keeping  the  height  constant.  The  effects 
due  to  secondary  flow  were  found  to  dominate  the  measured  effect  of  rotation  on  boundary 
layer  growth  and  skin  friction. 

Based  on  Boyer  and  others’  experimental  findings  that  the  rotating  passage  flow 
could  be  adequately  characterized  by  an  inviscid  core  region  surrounded  by  thin  wall 
layers,  early  analytical  approaches  employed  either  a  perturbation  method  (Bama  and 
Moore)  or  momentum  integral  analysis.  Mori  and  Nakayama  [40]  and  Ito  and  Nanbu  [25] 
pioneered  the  latter  method  with  considerable  success. 

Interest  soon  developed  to  predict  the  effect  of  rotation  on  passage  heat  transfer. 
Researchers  found  that  using  Reynolds  analogy  to  directly  transport  the  effect  of  rotation 
from  skin  friction  to  heat  transfer  was  inappropriate.  Morris  and  Ayhan  [41]  were  first  to 
incorporate  the  effect  of  centrifugal  buoyancy  in  the  interpretation  of  observed  heat  transfer 
phenomena  in  a  rotating  circular  cross-section  cooling  tube.  They  proposed  a  Nusselt 
correlation  based  on  a  rotational  Rayleigh  number  divided  by  the  square  of  the  Reynolds 
number  (equivalent  to  Bo).  Morris  et  al  persisted  with  numerous  studies  over  the  next 
decade,  documenting  the  circumferential  variations  in  rotating  heat  transfer  data  [43]  and 
the  effect  of  passage  cross-section  shape  [20]. 

In  the  late  1980’s  and  early  1990’s  interest  in  rotating  heated  passage  flows 
blossomed  with  the  direct  application  being  turbine  blade  cooling  passages.  In  1989, 
Guidez  [16]  published  the  results  of  experiments  using  an  infrared  pyrometer  to  measure 
the  wall  temperature  of  a  rotating  passage  heated  in  an  evacuated  furnace.  Much  of  the 
work  reported  before  Guidez  involved  laminar  or  transitional  Reynolds  numbers.  For  this 
reason,  Guidez  focused  on  a  range  of  Re  from  15000  to  50000.  He  found  the  ratio  of 
trailing  side  Nu  to  leading  side  Nu  to  be  about  two  for  Re=24000,  and  noted  that  this  ratio 
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decreased  with  increasing  Re.  Comparing  his  results  with  previous  work,  Guidez  found 
less  than  satisfactory  agreement.  He  attributed  this  to  differences  in  the  experimental 
apparatus:  passage  inlet  and  passage  shape.  This  admitted  “facility  dependence”  of 
experimental  data  continues  to  plague  the  research  community  today,  though  to  a  lesser 
degree.  Guidez  also  performed  a  numerical  calculation  of  the  flowfield. 

Following  Guidez  were  protracted  experimental  studies  by  Wagner,  Johnson  et  al  at 
United  Technologies  Research  Center  (UTRC)  and  Han,  Zhang,  Dutta  et  al  at  Texas  A&M. 
The  UTRC  team  methodically  studied  the  effects  of  Re,  Rot,  and  d.r.  [51],  flow  direction 
[52],  normal  ribs  [53],  skewed  ribs  [27],  stagger  angle  and  rotation  direction  [28].  While 
their  complete  findings  are  too  numerous  to  mention,  their  work  quickly  became  the 
reference  point  for  all  subsequent  research.  Particular  results  with  direct  bearing  on  this 
thesis  are  the  effects  of  Rot,  Re,  and  d.r.  on  radial  outward  flow.  Increasing  d.r. 
augmented  Nu  on  both  trailing  and  leading  side.  Increasing  Re  was  also  found  to  increase 
Nu  on  both  sides,  contrary  to  Guidez’  finding.  This  was  true  even  with  Nu  normalized  by 
a  stationary  Nu  correlation  based  on  Re°  * .  Finally,  increasing  Rot  raised  Nu 
monotonically  on  the  trailing  side,  but  not  so  on  the  leading  side.  There  the  Nu  first 
dropped  and  then  increased  with  increasing  Rot.  Wagner  et  al  [5 1]  were  the  first  to  use  the 
density  ratio  to  characterize  the  effects  of  centrifugal  buoyancy. 

Meanwhile  the  Texas  A&M  team  explored  the  effects  of  passage  shape  [12]  and 
thermal  boundary  conditions  [17,18] .  The  UTRC  facihty  is  an  exclusively  constant  wall 
temperature  apparatus,  while  the  Texas  A&M  facility  can  be  operated  in  either  constant  wall 
temperature  or  constant  wall  heat  flux  mode.  There  is  yet  some  disagreement  over  which 
boundary  condition  is  more  representative  of  the  turbine  cooling  passage.  Han  et  al  [18] 
found  that  the  constant  heat  flux  mode  had  higher  Nu  on  both  leading  and  trailing  side  than 
the  constant  wall  temperature  case  for  the  same  density  ratio.  They  reasoned  that  because  a 
constant  heat  flux  gives  uneven  wall  temperatures,  the  buoyancy  forces  are  unbalanced  and 
create  better  cooling  everywhere  as  they  destabilize  the  passage  flow.  Han  and  Zhang  [17] 
also  experimented  with  uneven  wall  heating  with  a  similarly  marked  effect.  Their  Nu  data 
is  normalized  by  the  same  stationary  Nu  correlation  (Re°  * ),  which  they  found  to 
adequately  remove  Re  dependency  in  the  rotating  data. 

In  addition  to  the  work  at  UTRC  and  Texas  A&M,  other  experimental  studies  with 
varying  levels  of  sophistication  have  been  reported.  Of  specific  interest  is  recent  work 
earned  out  at  MIT  on  a  facility  originally  designed  for  impingement  cooling  research  [34]. 

In  1994  and  1995  three  experimental  programs  were  conducted  [2,29,15]  exploring  effects 
of  aspect  ratio,  skewed  ribs,  uneven  waU  heating,  and  flow  direction.  The  results  served 
as  a  point  of  departure  for  the  work  in  this  thesis. 
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On  the  computational  front,  researchers  had  also  been  active  applying  Navier- 
Stokes  solvers  with  k-e  and  Reynolds  stress  turbulence  models  to  rotating  flows.  T  ike  the 
experimentalists,  initial  computational  studies  did  not  treat  the  effect  of  buoyancy  [22,31]. 
They  did,  however,  predict  much  of  the  experimentally  measured  effects  of  Coriolis.  One 
additional  insight  was  the  development  of  an  additional  vortex  pair  (making  4  vortices  in 
all)  at  high  Rot  [24,31].  Guidez  [16]  and  Prakash  and  Zerkle  [45]  finally  added  the  full 
effects  of  buoyancy  with  surprising  results.  Prakash  and  Zerkle  predicted  flow  reversal  at 
high  Rot  on  the  leading  wall.  Since  then,  many  other  studies  have  been  conducted 
exploring  the  effects  of  ribs  [6],  passage  shape  [35],  flow  direction,  and  thermal  boundary 
condition  [32]  among  others. 

All  of  the  heated  rotating  computations  have  used  the  flow  prediction  to  estimate 
Nu,  which  is  then  compared  with  experiment  to  assess  code  validity.  A  lack  of  detailed 
flow  measurements  in  the  heated,  rotating  frame  has  prevented  direct  comparison  with 
velocity  data.  This  is  not  to  suggest  that  velocity  measurements  have  not  been  attempted. 
As  far  back  as  Moore  [39]  and  Wagner  and  Velkoff  [54],  Coriolis  secondary  flows  and 
boundary  layer  growth  have  been  measured  using  existing  hot  wire  technology.  The 
advent  of  non-intrusive  laser  flow  measurement  techniques  greatly  facilitated  this  effort  in 
the  last  decade.  In  1991  Uellner  and  Roesner  [50]  and  Berg  et  al  [4]  both  published 
velocity  measurements  from  rotating  (non-heated)  facilities.  Uellner  and  Roesner  used 
laser  speckle  velocimetry  (LS  V)  and  Berg  et  al  applied  the  laser  two-focus  method.  Their 
results  corroborated  earlier  hot-wire  measurements.  In  1995  and  1997,  Tse  et  al  [48,49] 
used  a  test  section  configuration  similar  to  the  UTRC  apparatus  to  obtain  detailed  velocity 
contours  with  3-component  laser  doppler  velocimetry  (LDV).  Again,  their  test  section  is 
not  heated.  Most  recently,  Hsieh  et  al  [23]  obtained  velocity  data  using  LDV  in  a  rotating 
passage  with  heating  on  the  leading  and  trailing  walls  only.  Measurements  are  presented 
only  along  the  passage  centerline  and  show  a  linuted  effect  of  rotation  up  to  the  maximum 
Rot  of  0.06.  While  their  success  at  tackling  a  difficult  problem  is  commendable,  their  test 
section  bears  little  resemblance  to  a  turbine  cooling  passage.  The  25d  long  square  passage 
has  an  inlet  radius  of  Id,  with  heat  added  at  a  radius  of  6d  (turbine  cooling  passages 
typically  have  an  inlet  radius  >50d).  Also,  the  ‘U’  shaped  passage  is  not  oriented  radially 
from  the  axis  of  rotation,  creating  multiple  components  of  Coriolis  and  buoyancy.  In 
addition,  the  velocity  data  indicate  a  far  greater  effect  of  the  trips  in  the  passage  than  the 
rotation  effect  at  such  low  Rot. 
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Contributions  of  this  Thesis 


The  present  study  contains  the  first  reported  global  velocity  measurements  in  a 
heated,  rotating  test  section.  The  results  document  the  Coriolis  vortex  and  the  effect  of 
buoyancy.  In  addition,  unlike  hot  wires  or  LDV,  the  PIV  velocity  measurement  technique 
provides  a  two  dimensional  plane  of  the  flowfield  with  each  image.  So  rather  than  relying 
solely  on  statistical  samples,  PIV  allows  insight  into  the  unsteady  character  of  the  flow. 
The  velocity  data  alone  would  be  a  significant  contribution  to  code  validation  efforts  and 
improved  physical  understanding,  but  this  is  not  all.  High  resolution  heat  transfer 
measurements  are  also  presented  with  the  same  test  section  operating  at  the  same 
conditions.  This  allows  a  direct  correlation  of  flow  phenomena  to  heat  transfer  phenomena 
without  the  ambiguities  of  different  experimental  facilities.  Finally,  the  test  section 
geometry  is  representative  of  a  turbine  blade  cooling  passage  and  it  is  operated  well  within 
the  industrial  parameter  space.  So,  the  findings  have  direct  relevance  to  turbine  cooling 
design.  These  are  the  specific  contributions  of  this  thesis. 


Thesis  Outline 

Because  a  major  objective  of  this  research  effort  was  the  demonstration  of  a  new 
capability  (PIV  in  a  rotating,  heated  test  section),  the  passage  design  was  simplified.  The 
cross-section  is  square  and  there  are  no  heat  transfer  augmentation  ribs.  The  model  was 
tested  in  only  one  flow  direction  (radial  outward)  and  the  stagger  angle  is  0°  throughout. 
The  thermal  boundary  condition  is  nominally  constant  heat  flux  and  the  inlet  condition  is  a 
tapered  orifice  with  only  1.25  diameters  of  unheated  starting  length. 

The  experimental  apparatus  is  described  in  detail  in  the  next  chapter.  The  PIV 
image  acquisition  and  processing  is  also  outlined  in  chapter  2,  along  with  the  wall 
temperature  measurement  and  Nusselt  calculation  procedure.  Chapter  3  contains  the  outline 
of  an  analytical  flow  model  that  was  used  for  data  interpretation.  Chapter  4  presents  all  of 
the  experimental  data  with  discussion  and  model  comparisons.  Finally,  the  entire  work  is 
summarized  with  conclusions  in  chapter  5.  The  appendices  contain  copies  of  the  various 
computer  programs  used  for  data  analysis. 
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Figure  1.1:  Schematic  of  Turbine  Blade  Indicating 
3  Forms  of  Cooling:  Impingement,  Internal,  and  Film  [15] 


15 


Chapter  2:  Experimental  Method 


Introduction 

The  experimental  facility  used  for  this  study  was  originally  designed  by 
Kreatsoulas[34]  for  impingement  cooling  studies.  It  was  subsequently  modified  by 
Barry[2],  Jones[29],  and  Govatzidakis[15]  for  parametric  internal  cooling  research.  The 
facility  can  be  operated  over  a  range  of  Re,  Rot,  and  d.r.  which  match  actual  gas  turbine 
operating  conditions.  Other  variables  include:  flow  direction,  rotation  direction,  passage 
geometry,  and  stagger  angle.  The  testing  done  for  this  study  used  radial  outward  flow,  and 
forward  rotation  only  at  0°  stagger  angle.  Figure  2.1  shows  a  schematic  of  the  facility. 

The  test  section  is  mounted  at  the  end  of  a  0.4m  radius  arm  which  spins  in  an  evacuated 
chamber.  Cooling  fluid  enters  and  exits  the  rotating  arm  and  passage  through  an 
arrangement  of  seals  located  on  the  shaft.  Heat  is  applied  to  the  passage  via  resistive 
heating  and  the  passage  surface  temperatures  are  measured  with  an  infrared  scanner. 

This  chapter  contains  a  detailed  description  of  the  experimental  facility  as  well  as 
modifications  that  were  made  to  provide  optical  accessibility  for  PIV  measurements. 

Finally  the  PIV  image  processing  and  Nusselt  calculation  procedures  are  outlined  in  detail. 


Facility  Overview 

The  rotating  arm  is  mounted  on  a  shaft  which  occupies  the  cavity  of  a  large  vacuum 
tank.  The  arm  is  constructed  from  two  rigid  parallel  steel  plates  and  has  a  diameter  of 
0.81m.  The  shaft  and  rotor  are  driven  by  a  7.5hp,  0-60rps  variable  speed  motor  that  is 
controlled  by  the  data  acquisition  system  to  within  ±0.03rps.  A  balance  ring  mounted  on 
the  rotating  arm  permits  fine  control  of  vibration  levels  associated  with  rotation.  The 
rotation  speed  controller  and  vibration  suppression  system  were  critical  to  obtaining 
accurate  and  reliable  optical  images  for  use  in  PIV.  The  shaft  speed  is  measured  using  an 
optical  encoder  whose  signal  is  processed  by  the  data  acquisition  system.  The  once  per 
revolution  signal  from  the  encoder  is  used  to  trigger  the  laser/camera  synchronization  for 
PIV  and  the  IR  data  acquisition  for  wall  temperature  measurements.  The  entire  rotating  arm 
is  housed  in  a  cylindrical  vacuum  chamber.  The  vacuum  is  created  by  a  Stokes  145H-1 1 
Microvac  vacuum  pump  and  typical  pressures  during  testing  are  approximately  4Torr. 
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Operating  in  a  vacuum  avoids  windage  losses  during  rotation  and  more  importantly 
eliminates  passage  heat  transfer  loss  due  to  external  convection. 

The  cooling  fluid  circuit  can  be  operated  in  either  open  or  closed  loop.  In  open  loop 
mode  compressed  air  is  fed  to  the  rotating  passage  through  a  series  of  valves  and  a 
regulator.  The  actual  mass  flow  is  measured  using  a  Micromotions  CMF025-319 
massflow  sensor.  The  operating  pressure  just  upstream  of  the  test  section  is  measured  with 
an  Omega  PX213-100G5V  pressure  transducer.  Since  the  pressure  transducer  is  not 
located  on  board  the  rotating  arm,  the  pressure  drop  through  the  shaft  seals  was  measured 
and  is  deducted  from  the  transducer  measurement  to  give  an  accurate  reference  pressure  at 
the  test  section  inlet.  Typical  pressure  drop  was  0.6psi  at  60psia  operating  pressure.  Both 
the  massflow  and  pressure  analog  outputs  are  sampled  continuously  by  the  Hgta  acquisition 
system.  With  these  two  measurements,  and  a  fluid  reference  temperature,  the  passage  Re 
and  Rot  are  calculated  real  time  throughout  testing.  After  exiting  the  rotating  frame  through 
the  shaft  seals,  the  air  is  exhausted  to  atmosphere.  The  closed  loop  mode  is  used  when 
operation  with  a  gas  other  than  air  is  deemed  necessary  to  achieve  elevated  Reynolds 
number.  For  example.  Freon- 12  can  be  used  in  the  closed  loop  mode  to  give  a  factor  of 
nearly  four  in  Re  at  constant  Rot.  The  open  loop  mode  was  employed  exclusively  for  this 
testing  primarily  because  air  is  compatible  with  the  seeding  selected  for  PIV. 

Four  type-K  thermocouples  are  located  on  the  rotating  arm  and  give  redundant 
measurements  of  passage  inlet  and  exit  temperature.  The  signals  are  brought  to  the 
stationary  frame  via  a  standard  slip  ring  assembly.  To  avoid  signal  corruption  associated 
with  copper-to-thermocouple  wire  junctions  at  the  unknown  temperature  of  the  slip  ring 
assembly,  on-board  junction  compensation  was  employed  using  Omega  Temperature 
Transmitters,  model  TX-91K.  Essentially,  these  devices  produce  a  current  proportional  to 
the  thermocouple  signal  and  thus  avoid  noise  associated  with  spurious  voltage  drops.  The 
current  signals  are  brought  through  the  slip  ring  to  a  series  of  precision  resistors  and  the 
voltage  drop  there  is  sampled  by  the  data  acquisition  system.  The  transmitters  are 
calibrated  to  within  ±1°  C  using  a  two  reference  temperature  calibration  procedure.  The 
pressure  and  massflow  meter  are  calibrated  using  in-line  analog  meters  for  pressure  and 
massflow  (a  rotameter)  respectively  to  within  ±1%. 

Power  slip  rings  provide  the  current  necessary  for  resistance  heating  of  the  test 
section.  A  filtered  DC  power  supply  provided  a  stable  operating  current  up  to  2Amps  with 
±0.1%  ripple.  The  current  was  monitored  with  a  0.7Q  shunt  resistor  and  a  digital 
voltmeter.  A  current  drift  during  testing  of  ±2.5%  was  the  largest  source  of  error  in  the 
current  measurement. 
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The  data  acquisition  system  consists  of  two  National  Instruments  Data  Acquisition 
boards  operated  using  the  Lab  view  software.  The  two  boards  provide  a  total  of  12 
differential  analog  inputs  with  12bit/channel  resolution.  The  output  channels  on  the  boards 
are  also  used  to  control  the  rotational  frequency  of  the  shaft,  provide  synchronization  TTL 
signals  to  the  camera  and  laser,  and  operate  the  IR  traverse  system. 


The  Test  Section 

It  was  clear  from  the  beginning  of  this  research  that  creating  a  test  section  that 
allows  both  optical  access  and  an  applied  heat  load  would  be  a  significant  technological 
undertaking.  The  quartz  test  section  with  thin  metal  coating  used  in  the  study  was  only 
selected  after  a  thorough  review  of  suitable  candidates.  The  quartz  test  section  is  1 15mm 
long  and  is  manufactured  from  drawn  square-bore  tubing.  The  ID  is  10mm  x  10mm  and 
the  walls  are  ground  and  polished  to  a  1.5mm  thickness.  Figure  2.2  is  a  schematic  of  the 
finished  product.  The  center  90mm  along  each  of  the  four  sides  is  coated  with  a  10mm 
wide  swath  of  Indium  Tin  Oxide  (ITO).  The  coating  thickness  is  nominally 
4500Angstroms  ±5%  and  it  is  applied  with  electron  beam  sputtering  to  the  outside  of  the 
test  section  as  shown.  To  prevent  film  oxidation  (and  the  associated  resistance  rise)  at 
elevated  temperatures,  a  second  thinner  coating  of  Si02  is  applied  on  top  of  the  ITO 
through  a  proprietary  index-matching  process  by  the  manufacturer.  Thin  Film  Devices  Inc. 
With  this  coating,  the  film  can  operate  up  to  200°C  without  noticeable  degradation.  Heat 
fluxes  up  to  5  W/cm^  were  achieved  during  prehminary  testing.  Above  this  level  voids 
appear  in  the  film  due  to  ITO  vaporization  and  the  resistance  quickly  rises  to  infinite.  The 
operating  level  for  these  tests  was  approximately  IW/cm^ .  8mm  long  Cr/Ni/Au  busbars  at 
either  end  of  the  ITO  film  provide  uniform  electrical  contact  to  the  ITO.  Contact  to  the 
busbar  is  made  using  a  star-shaped  wave  spring  which  is  clamped  securely  at  both  ends 
(see  Fig  2.2)  of  the  passage.  The  four  sides  are  thus  connected  in  a  parallel  circuit. 

Beyond  the  busbar  is  4.5mm  of  non-coated  quartz.  This  free  end  is  potted  using  room 
temperature  curing  epoxy  into  a  specially  designed  fixture  which  mounts  to  the  end  of  the 
rotating  arm  in  the  vacuum  chamber.  The  epoxy  provides  the  needed  seal  and  absorbs  any 
mechanical  misalignment  or  shifting  during  assembly  and  rotation  without  overstressing  the 
brittle  quartz  test  section. 

Due  to  a  manufacturing  complexity,  the  front  side  wall  ITO  sheet  thickness  is 
approximately  20%  greater  than  the  ITO  thickness  on  the  leading  and  trailing  walls  (which 
are  roughly  equivalent).  This  creates  a  lower  resistance  here,  and  a  higher  heat  flux  since 
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more  current  passes  through  this  part  of  the  parallel  resistance  circuit.  The  back  side  wall’s 
ITO  thickness  is  conversely  20%  less  than  the  leading  and  trailing  walls,  causing  a 
corresponding  decrease  in  the  heat  flux  here.  The  result  is  a  higher  heat  load  on  the  front 
internal  wall  by  nearly  30%  after  a  3D  conduction  algorithm  (later  this  chapter)  accounts  for 
temperature  smearing  through  the  test  section  walls.  The  effect  of  this  heating  imbalance  is 
discussed  in  chapter  4. 

During  the  design  phase  considerable  energy  was  expended  to  determine  the 
minimum  acceptable  wall  thickness  given  the  predicted  stresses  in  the  test  section.  Stresses 
due  to  differential  pressure,  thermal  gradients,  and  rotation  were  all  factored  into  the 
design.  The  1.5mm  wall  thickness  was  able  to  sustain  pressures  up  to  60psi  and  none  of 
the  test  sections  were  lost  during  testing.  Careful  handling  of  the  test  section  before  and 
after  installation  is  critical.  Figure  2.3  is  a  schematic  of  the  installed  test  section.  Also 
indicated  is  the  upstream  flow  conditioning  screen,  tapered  inlet,  and  inlet  temperature 
measurement  port. 

ITO  Film  Properties 

The  rrO  film  and  quartz  substrate  provide  80%  transmission  at  the  visible 
wavelength  of  the  laser  used.  Since  the  quartz  is  opaque  in  the  IR  spectrum,  the  capability 
of  the  IR  scanning  temperature  measurement  system  was  not  compromised  with  the  use  of 
a  transparent  test  section.  The  emissivity  of  the  ITO  was  measured  using  an  IR  scanner 
with  the  coated  test  section  filled  by  a  reference  isothermal  copper  block.  Its  emissivity  is 
approximately  0.27.  The  emissivity  of  the  quartz  is  nearly  0.9. 

The  no  resistivity  has  a  non-negligible  dependency  on  temperature.  The  resistance 
of  a  sample  was  monitored  in  an  oven  over  a  200°  C  range  and  the  temperature  coefficient 
of  resistivity  was  calculated  to  be  tx=310  e-6/°C,  where 


P(T)  =  p(T„f)[l  +  a(T-T„f)] 

A  variable  resistance  will  produce  a  non-uniform  heat  flux  distribution  on  the  passage 
exterior  wall  if  the  temperature  is  not  spatially  uniform.  A  local  hot  spot  wUl  have  a  higher 
resistance  (a  >0)  and  the  current  will  tend  to  flow  around  it,  creating  a  lower  local  heat 
flux.  Since  we  expected  temperature  gradients  up  to  50°C  around  the  test  section 
circumference,  the  effect  of  this  variable  resistivity  needed  to  be  assessed.  To  do  this  a 
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finite  difference  scheme  was  created  to  solve  the  conservation  law  for  the  current  density, 
J,  in  the  ITO  film  on  each  side  of  the  test  section. 


V  •  J  =  0  where  J  =  —  and  e  =  —VO 

P 

Since  the  ITO  film  has  a  thickness  of  4500 Angstroms  «  90mm  length  and  10mm  width, 
the  above  relation  is  solved  in  only  two  dimensions: 
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The  resistivity  is  a  function  of  temperature  which  is  in  turn  a  function  of  x  and  y,  so 


p  dx^  p  dy^  dx  dx  dy  dy 


T(x,y)  on  the  ITO  surface  is  known  from  the  IR  measurements  and  the  relation  for  p(T) 
has  already  been  measured  empirically.  So,  the  above  differential  equation  is  discretized 
with  appropriate  boundary  conditions  at  the  four  ITO  edges  and  solved  using  an 
underrelaxed  Jacobi  iteration  scheme.  Once  the  0  distribution  is  determined,  the  loeal  heat 
flux  is. 
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A  copy  of  the  code  is  at  Appendix  B.  The  p(T)  variation  has  an  effect  of  <1%  on  the  local 
heat  flux  distribution  for  the  testing  condition  reported  here,  but  it  is  accurately  accounted 
for  in  the  Nusselt  calculation. 
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The  PIV  Measurement  System 


The  laser  is  a  QuantaRay  PIV  series  Nd:YAG  manufactured  by  Spectra-Physics.  It 
emits  two  sequential  200mJ  pulses  with  a  nominal  pulse  width  of  10ns.  The  radiated 
energy  is  frequency  doubled  to  obtain  a  green  beam  at  532nm.  The  pulse  separation  can  be 
varied  from  100ns  to  lOOms.  Pulse  separations  of  25-35ns  were  used  in  this  research. 
With  a  typical  flow  velocity  of  3  m/s  in  the  test  section,  the  10ns  pulse  essentially  freezes 
the  motion  of  seed  particles  while  the  pulse  separation  of  30)j,s  gives  nearly  lOOpm  of 
motion  between  pulses.  The  pulse  separation  was  verified  to  a  miniTnum  accuracy  of 
100ns.  The  exit  beam  diameter  is  approximately  1cm. 

The  focusing  optics  are  mounted  to  the  front  face  of  the  vacuum  tank  to  avoid 
vibration-induced  misalignment.  The  beam  reaches  the  optics  through  a  series  of  three  flat 
mirrors  with  a  combined  throw  distance  of  approximately  Im.  Figure  2.4  contains  a 
schematic  of  the  optical  path.  To  produce  the  hght  sheet,  a  25mm  diameter  spherical  lens 
with  focal  length=750nim  is  positioned  outside  the  vacuum  tank  with  its  focal  point 
precisely  set  to  the  center  of  the  test  section  passage  when  it  is  in  the  camera’s  field  of 
view.  A  miiTor  located  5cm  after  the  spherical  lens  directs  the  narrowing  beam  in  the 
required  angular  orientation  to  bisect  the  test  section.  Approximately  16cm  beyond  this 
mirror  is  the  50mm  x  50mm  square  cylindrical  lens.  This  final  lens  has  a  negative  focal 
length  of  -100mm  and  thus  expands  the  beam  in  only  one  direction  to  produce  a  planar 
sheet  normal  to  the  axis  of  rotation.  Figure  2.5  shows  the  coordinate  axes  fixed  to  the 
rotating  test  section  along  with  the  components  of  velocity.  These  axis  and  velocity 
nomenclature  are  used  in  all  subsequent  discussions.  From  this  figure,  the  laser  sheet 
illuminates  the  x-z  plane  of  the  test  section. 

The  sheet  height  when  it  intersects  the  test  section  is  about  4cm.  The  height  can  be 
adjusted  by  moving  the  cylindrical  lens  relative  to  the  spherical  lens  on  an  optical  track. 

The  position  of  the  sheet  relative  to  the  passage  x/d  can  also  be  varied  using  the  two  point 
micrometer  adjustments  on  the  final  mirror  in  the  optical  path.  Both  the  spherical  lens  and 
the  final  mirror  are  mounted  on  an  optical  traverse  with  micrometer  adjustment  so  the  sheet 
can  be  moved  from  side  to  side  in  the  test  section  passage  (0<y/d<l).  Two  1.25cm  thick 

glass  windows  cover  the  entrance  port  for  the  laser  beam  and  the  camera  view  port  (Figure 
2.4). 

Since  the  PIV  system  was  employed  to  measure  secondary  flow  features  with  finite 
spatial  extent,  an  accurate  measure  of  the  sheet  thickness  was  desirable.  To  obtain  this 
measurement  a  flat  (2-D)  nozzle  was  fashioned  from  1.25cm  diameter  copper  tubing.  The 
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nozzle  exit  width  is  approximately  0.8mm.  This  nozzle  was  installed  in  place  of  the  test 
section  and  in  fuU  view  of  the  camera.  Seeding  was  then  added  to  a  constant  flow  of  air 
from  the  nozzle  and  the  laser  sheet  (at  a  nominal  power  setting)  was  traversed  across  the 
fixed  flat  jet.  The  light  sheet  thickness  was  then  deduced  from  the  range  of  traverse  over 
which  particles  were  visible  in  the  camera.  Using  this  method,  the  sheet  thickness  was 
estimated  at  0.4  ±0. 1mm.  Because  the  laser  beam  has  a  60%  gaussian  profile,  the  beam 
intensity  actually  varies  through  the  sheet  thickness  and  some  faint  particles  were  visible 
over  a  larger  range  of  traverse  motion  (suggesting  an  ultimate  sheet  thickness  of  nearly 
1mm).  However,  the  bulk  of  visible  particles  were  in  the  center  0.4mm  of  the  laser  sheet. 
This  finite  sheet  width  prevents  velocity  measurement  closer  than  0.5mm  to  the  passage 
side  walls  (y/d=0  &  y/d=l)  as  laser  reflections  obscure  the  field  of  view. 


Flow  Seeding 

Since  the  cooling  fluid  (air)  is  relatively  free  of  particulate,  seed  particles  are  added 
to  the  flow  just  outside  the  vacuum  tank.  Gonesh  #2  incense  is  used  as  the  seed.  Sample 
particles  were  sized  with  a  Particle  Measurement  Systems  particle  sizer  (using  Mie 
scattering)  at  0.2  to  0.5p,m  [9].  Gonesh  had  been  used  previously  in  the  laboratory  for 
transonic  flow  visualization  with  considerable  success.  The  small  particle  diameter  was 
desired  based  on  a  calculation  of  the  particle  slip  velocity  in  the  rotating  centrifugal  field.  If 
the  particle  density  is  much  larger  than  the  fluid  density  (and  Stokes  flow  about  the  particle 
is  assumed),  a  momentum  balance  for  the  seed  particle  in  the  flow  gives  [37]: 

‘’p  f  “p  "''p)+pp  f 

is  the  centrifugal  body  force  on  the  seed  particle.  The  critical  parameter  is  v^-Vp  ,  the 
difference  between  the  fluid  velocity  and  the  seed  particle  velocity,  which  must  be 
minimized  for  accurate  flow  measurement.  Solving  this  relation  for  v^-Vp  as  a  function  of 
time  produces  an  expression  with  an  asymptotic  value  of 


Vc  -  V. 
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Using  this  expression,  a  particle  diameter  of  l|im  was  selected  to  provide  a  IVf-VpI/Vf  <  1% 
at  the  maximum  possible  rotation  frequency  of  30rps.  Gonesh  incense  is  more  than 
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adequate  for  this  application,  especially  since  the  rotational  frequency  used  in  practice  was 
one  third  the  maximum  allowable  value. 


Camera  Parameters 

The  camera  used  to  obtain  the  PIV  images  is  a  PULNIX  TM-745  CCD  camera. 

The  pixel  resolution  is  480  (V)  x  752  (H)  and  the  S/N  ratio  is  50dB  min.  A  Sigma  macro¬ 
lens  (90mm  focal  length)  mounted  to  the  camera  housing  is  set  to  a  nominal  F#  of  12  for 
the  PIV  unages.  This  gives  a  magnification  (image/object  size)  of  M=0.81.  The  horizontal 
lines  of  the  output  frame  from  the  camera  are  interlaced.  To  assure  a  properly  interlaced 
image,  the  sampling  rate  must  be  an  integer  multiple  of  2  times  the  1/60  sec  framing  rate. 
For  this  reason,  a  rotational  frequency  of  10  rps  was  selected  for  the  rotating  arm  (the  arm 
and  camera  are  synchronized  for  image  acquisition).  To  obtain  consistently  interlaced 
images  it  is  critical  that  this  rotational  frequency  be  maintained  throughout  the  testing 

period.  Thus  the  need  for  the  <0.2%  control  of  the  driving  motor  rotation.  The  camera 

images  are  acquired  using  an  ITEX  Image  Capture  board  and  associated  software.  The 
images  are  stored  as  TEFF-format  files  (8  bit  resolution)  for  subsequent  processing. 

Significant  levels  of  stray  light  are  reflected  from  the  walls  of  the  test  section  during 
operation  of  the  laser.  This  optical  noise  can  render  the  entire  field  of  view  useless  without 
appropriate  precautions.  Accordingly,  a  beam  block  with  10mm  wide  gap  was  installed  on 
the  laser  entry  side  of  the  test  section  and  an  adjustable-gap  block  was  installed  on  the 
camera  view  side  (Figure  2.6).  An  additional  black  background  was  also  situated  behind 
the  test  section  to  eliminate  stray  reflections  there.  To  accurately  identify  the  region  of  the 
passage  which  is  actually  in  the  field  of  view,  a  grid  was  installed  inside  the  test  section  and 
the  adjustable  blocks  were  set  to  a  gap  width  of  8mm  (-0.4  <  z/d  <  0.4).  The  absolute 
position  of  this  8mm  wide  gap  relative  to  the  test  section  was  measured  to  an  accuracy  of 
iO.lmm  (the  z  position)  using  indicial  marks  on  this  same  grid.  The  sheet  position  in  the  y 
direction  was  determined  by  moving  the  sheet  back  and  forth  inside  the  test  section  and 
noting  when  the  sheet  touched  the  side  walls.  The  midpoint  of  these  two  positions 
indicates  y/d=0.5  (the  center  of  the  passage).  The  accuracy  of  this  method  is  estimated  at 
less  than  half  the  sheet  thickness,  or  <0.2mm.  Even  when  finely  balanced  there  is  some 
lateral  vibration  of  the  test  section.  Using  a  fine  wire  insert  into  the  passage,  vibration 
induced  lateral  motion  was  measured  to  be  <i0. 1mm  when  well  balanced. 

The  camera  was  positioned  to  optimize  the  competing  requirements  of  field-of-view 
and  spatial  resolution.  The  result  is  a  maximum  available  window  of  8.2mm  in  the  test 
section  axial  (x)  direction  and  10.7mm  across  the  test  section  width  (z  direction).  While 
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this  theoretically  allows  access  to  the  entire  10mm  test  section  width,  there  are  several 
practical  limitations  to  this  available  field  of  view.  First,  though  pains  were  taken  to  shield 
the  camera  from  stray  light  scattered  from  the  edge  walls  of  the  test  section,  there  is 
significant  optical  noise  near  the  edges  which  increases  significantly  as  the  light  sheet 
approaches  the  side  walls  (y  «  0  &  d).  This  limits  the  available  view  for  noise-free  particle 
correlation  by  2-4mm  on  the  width,  depending  on  the  y  location  of  the  laser  sheet.  This 
problem  is  greatly  exacerbated  when  the  test  section  is  rotating,  since  both  images  of  the 
test  section  must  now  be  contained  in  the  same  10.7mm  wide  camera  frame.  The  edge 
glare  from  one  image  overlaps  otherwise  usable  area  from  its  double-image  and  vice  versa. 
This  occurs  along  both  sides,  in  effect  doubhng  the  obscured  area.  As  a  result,  the 
processed  PFV  images  generally  show  vectors  over  3-7mm  of  the  10mm  test  section  width 
(z  direction). 

The  camera  is  mounted  on  a  fine  pitch  screw  traverse  which  allows  for  camera 
positioning  along  the  axial  (x)  direction  of  the  passage.  The  traverse  is  accurate  to 
+0.03mm.  The  camera  does  not  have  the  flexibihty  to  traverse  back  and  forth  in  the  y 
direction  to  maintain  focus  as  the  laser  sheet  is  moved  from  the  front  side  wall  (y=d)  to  the 
back  side  wall  (y=0)  of  the  passage.  To  maintain  focus,  the  lens  was  adjusted  for  each 
new  position  of  the  sheet.  The  magnification  adjustment  was  measured  using  a  square  grid 
imaged  at  both  extremes  of  the  range.  The  variation  in  magnification  is  ±4%  (0.8%/mm) 
and  is  accounted  for  in  the  image  processing  software. 

When  the  passage  is  rotating,  the  laser  and  camera  must  be  synchronized  properly 
to  yield  a  useful  image.  To  do  this,  first  the  trigger  signal  from  the  optical  encoder  is  read 
by  the  data  acquisition  system.  A  delayed  pulse  (based  on  the  rotational  frequency)  is  then 
sent  to  initiate  the  camera  frame  acquisition.  33.8ms  after  this  pulse,  another  pulse  initiates 
the  lamp  on  the  first  laser  cavity  which  is  then  Q-s  witched  (180|xs  later)  to  give  the  first 
laser  burst.  This  elaborate  timing  sequence  insures  that  the  test  section  is  located  in  the 
camera  field  of  view  when  the  laser  fires.  The  second  laser  burst  is  triggered  similarly  with 
a  time  separation  equal  to  the  desired  laser  burst  separation.  All  of  these  timing  signals  are 
handled  by  the  Stanford  Research  Systems  Inc.  Four  Chaimel  Digital  Delay/Pulse 
Generator  which  generates  up  to  four  TTL  pulses  with  an  accuracy  of  5  picoseconds. 

Since  the  rotational  frequency  is  controlled  to  within  ±0.03rps,  the  triggering  sequence 
continues  uninterrupted  throughout  the  many  hours  of  testing  required  to  obtain  the  PIV 
images.  For  image  processing,  it  is  critical  to  have  an  accurate  measurement  of  the 
rotational  frequency  for  each  image.  Rather  than  acquire  a  simultaneous  measurement  of 
Q,  it  is  estimated  based  on  the  test  section  position  in  the  camera  frame.  Since  the  trigger 
sequence  is  initiated  only  once  at  the  beginning  of  a  testing  cycle,  as  Q  varies  the  test 
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section  moves  predictably  out  of  the  camera  field  of  view.  Measuring  this  shift  in  pixels  on 
the  actual  image  gives  a  much  improved  uncertainty  of  <±0.00  Irps. 


Beam  Alignment 

Also  of  critical  importance  is  the  laser  sheet  alignment  relative  to  the  plane  of 
rotation  of  the  passage.  Even  a  slight  angular  misalignment  between  the  two  planes  results 
in  a  second  image  which  is  at  a  different  y/d  position  than  the  first,  with  a  different  set  of 
seed  particles.  This  greatly  hinders  the  particle  pairing  or  correlation  for  velocity 
determination.  The  solution  to  this  potential  problem  is  the  alignment  tool  shown  in  Figure 
2.7.  This  tool  consists  of  two  fine  13|j.m  diameter  wires  which  form  a  cross  between  two 
long  3mm  diameter  posts.  With  this  alignment  tool  inserted  into  the  passage  (and  the  posts 
situated  at  the  comers  of  the  passage)  the  sheet  illuminates  the  cross  during  rotation  within 
full  view  of  the  CCD  camera.  As  such,  misalignment  between  the  sheet  and  the  plane  of 
rotation  is  readily  apparent.  Adjustments  in  the  sheet  orientation  are  made  by  moving  the 
final  mirror.  A  typical  double  cross  image  after  alignment  is  shown  in  Fig  2.8,  where  the 
majority  of  the  sheet  strikes  the  same  portion  of  the  cross  in  both  images. 


PFV  Image  Processing 

Particle  Image  Velocimetry  (PIV)  is  an  optical  measurement  technique  that  relies  on 
sequential  bursts  of  light  to  provide  two  or  more  frozen  images  of  particles  in  a  flowfield. 
Particles  are  paired  with  their  double  (or  correlations  are  performed)  to  yield  the  net  motion 
in  the  two  dimensions  of  the  light  sheet.  An  accurate  knowledge  of  the  pulse  time 
separation  then  provides  two  components  of  velocity.  The  principle  is  straightforward,  but 
the  application  is  not  always  simple,  especially  when  high  accuracy  and  spatial  resolution 
are  desired.  This  section  outlines  the  application  of  PIV  employed  in  this  research  effort 
beginmng  with  essential  background  on  PIV  in  general. 

In  his  1991  review  paper,  Adrian  [1]  summarized  many  of  the  important  features 
necessary  for  accurate  velocity  measurements  using  PIV.  Since  these  criteria  were  used  to 
optimize  the  PIV  images  in  this  work,  they  are  summarized  here  for  completeness.  For  a 
diffi’action  limited  lens,  the  point  response  is  an  Airy  function  with  a  diameter, 

ds  =  2.44(1 +  M)f#X 
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In  this  case,  M=0.8,  X;=532nm,  and  F#=12  combine  to  give  =  30|xm  (just  2  pixels  in 
image  space).  The  image  of  a  finite  diameter  particle  is  the  convolution  of  the  Airy  function 
with  the  particle  geometric  image,  Mdp .  Approximating  both  functions  by  Gaussians  leads 
to  the  following  approximate  function  for  the  image  diameter. 


de 
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With  dp  =  0.3p,m  for  the  Gonesh  seed  particles,  d^  s  d^  in  this  case.  The  lens  depth  of  field 
is  determined  by  the  relation. 
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dz=1.2mm  for  this  application,  which  is  greater  than  the  measured  light  sheet  thickness  of 
0.4mm.  Accordingly,  there  is  no  noticeable  blurring  in  the  image.  If  the  field  of  view  is 
too  large,  the  paraxial  optics  assumptions  are  no  longer  valid.  To  insure  that  this  does  not 
happen,  we  desire  the  ratio  of  maximum  field  dimension  to  the  objectdens  distance  to  be 
<0.1.  This  application  has  a  ratio  of  0.5cm/15cm  =  0.03  <  0.1. 

The  source  density,  ,  of  a  PIV  image  is  defined  as  the  mean  number  of  particles 
in  a  cyhndrical  volume  created  by  the  intersection  of  the  light  sheet  and  the  circle  of  image 
resolution,  d^/M. 
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If  Nj  >  1  the  particle  density  is  too  high  to  distinguish  individual  particles  and  determine 
velocities  from  a  correlation  or  tracking  scheme.  Instead  the  flow  is  better  suited  for  Laser 
Speckle  Velocimetry  which  analyzes  the  interference  patterns  of  multiple  particles  to 
determine  velocity  [50].  N,  =  0.02  for  this  apphcation,  so  PIV  is  appropriate. 

The  image  density,  N, ,  is  defined  as  the  particle  density  in  a  typical  correlation 
interrogation  box  (to  be  explained  later). 

ndj 

Nj  —  Ppart^sheet  ^^^2 
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If  Nj  «1  the  particles  and  their  double  images  are  sufficiently  isolated  from  other  particles 
to  allow  an  unambiguous  pairing  of  individual  particles  to  determine  motion  and  thus 
velocity.  This  is  known  as  Particle  Tracking  or  Low  Density  PIV  and  was  used  with  some 
success  in  the  early  stages  of  this  research  program.  If  Nj  »1  the  particles  are  too  close  in 
proximity  for  individual  particle  tracking.  Instead,  a  correlation  of  particle  patterns  in  the 
flow  is  performed  to  yield  one  vector  per  correlation  box.  Each  correlation  box  may 
contain  10-20  particles,  but  their  individual  velocities  are  consolidated  into  a  single  mean 
vector.  This  second  method  is  called  High  Density  PIV.  With  time,  the  high  density 
method  completely  replaced  the  low  density  method  as  the  procedure  of  choice  for  reasons 
that  will  become  apparent  later.  Because  the  application  of  low  density  PIV  provided  the 
groundwork  for  the  later  use  of  the  high  density  method,  it  will  be  described  fust  followed 
by  the  high  density  method. 


Particle  Derotation 

Before  describing  either  of  these  PIV  methods,  a  procedure  will  be  outlined  which 
is  unique  to  this  rotating  PIV  application.  This  procedure,  used  in  both  the  high  and  low 
density  methods,  involves  removing  the  rotating  motion  from  the  double  image.  Since  this 
is  the  first  reported  application  of  PIV  to  a  rotating  test  section,  this  procedure  deserves  a 
detailed  treatment.  In  stationary  PIV,  at  times  a  “bias  velocity”  is  added  to  the  second 
image  to  eliminate  directional  ambiguity  (in  vortical  flows  for  example).  One  method  of 
doing  this  is  to  displace  the  second  image  a  known  amount  using  an  oscillating  mirror  in 
the  imaging  optical  path  (Jefferies[26]).  This  creates  an  offset,  or  bias,  between  the  two 
particle  fields  which  insures  a  unidirectional  velocity  field  (the  bias  velocity  is  typically 
selected  to  be  larger  than  the  maximum  exjiected  reverse  flow  velocity).  Once  the  vectors 
are  determined,  the  known  bias  distance  can  be  removed  leaving  only  the  actual  flow 
velocity. 

Because  the  camera  and  laser  are  stationary  in  this  experiment,  the  test  section 
rotation  provides  an  inherent  “bias  velocity”  in  the  PIV  images.  The  second  image  is 
displaced  by  an  angle  QAt  about  the  axis  of  rotation.  To  remove  this  angular  displacement, 
Q,  At,  and  r  (the  radius  from  the  center  of  rotation  to  each  particle)  must  be  determined. 
Then  the  velocity  vector  field  can  be  adjusted  by  this  amount  to  leave  only  the  desired 
particle  motion  relative  to  the  passage.  Q  and  At  are  precisely  measured  quantities  for  each 
image,  but  the  position,  r,  is  unknown  unless  the  center  of  rotation  is  measured  in  the 
camera  frame  of  reference  (pixel  space). 
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To  determine  the  center  of  rotation  in  “pixel-space”,  the  alignment  tool  (Fig.  2.7)  is 
again  inserted  into  the  test  section.  The  radial  position  of  the  wire  cross  on  the  inserted 
alignment  tool  was  measured  to  an  accuracy  of  0.1  nun.  Then,  while  rotating,  a  double 
image  is  taken  of  the  cross  illuminated  by  the  laser  sheet  (Fig.  2.8).  The  two  cross  images 
are  then  correlated  to  determine  their  relative  distance.  Using  a  cross  for  this  procedure 
produces  a  far  superior  correlation  accuracy  than,  for  example,  a  single  illuminated  wire. 
The  correlation  peak  for  a  cross  is  very  well  defined  permitting  an  accurate  peak  location  of 
<0.3pixel  (Fig  2.8  shows  the  correlation  map  for  a  cross  image).  With  the  cross  radius, 
angle  of  motion  (i2At),  and  net  cross  motion  known,  the  calculation  of  the  center  of 
rotation  is  simple  geometry.  This  calculation  is  performed  by  the  processing  code  in  the 
subroutine  crclcntr.m  (Appendix  C).  With  the  center  of  rotation  identified  in  pixel  space, 
the  particles  in  subsequent  PIV  images  can  be  “derotated”  an  angle  QAt  about  this  pixel 
center  of  rotation  provided  the  camera  is  not  moved  from  its  alignment  position.  When  the 
camera  is  moved  to  another  x/d  using  the  vertical  traverse,  the  processing  software 
accounts  for  this  motion  and  shifts  the  pixel  center  of  rotation  accordingly. 

Individual  uncertainties  in  Q,  At,  the  cross  radius,  and  the  inter-cross  distance 
measurements  combine  to  give  an  aggregate  uncertainty  of  <0.2%  on  the  pixel  center 
position.  When  this  center  is  then  used  to  derotate  subsequent  PIV  images,  a 
corresponding  “bias”  error  of  ±4%  in  velocity  is  introduced.  Notably,  this  is  not  an  error 
in  the  traditional  sense,  since  it  is  applied  equally  to  all  images  processed  with  this 
calculated  pixel  center.  For  example,  if  the  pixel  center  determination  uncertainty  results  in 
a  +3.2%  error  in  velocity  vectors,  all  images  processed  with  this  pixel  center  are  subject  to 
the  exact  same  +3.2%  error.  Thus  it  is  rather  a  “bias”  for  all  images  in  the  same  test  run. 


Particle  Tracking  (Low  Density)  PIV  Method 

To  exercise  the  low  density  method,  the  acquired  TIFF-format  PIV  image  is 
converted  to  a  matrix  of  intensity  values.  Figure  2.9  shows  a  typical  double  exposure 
image.  All  of  the  codes  related  to  PIV  image  processing  were  written  in  the  Matiab 
programming  environment  (Appendix  C).  The  images  are  then  processed  as  follows. 
First,  the  image’s  pixel  intensity  map  is  filtered  to  identify  pixels  with  an  intensity  above 
some  predetermined  threshold  value.  These  high  intensity  pixels  are  associated  with  light 
scattered  from  seed  particles  in  the  flow.  Second,  “particles”  (high  intensity  pixels)  from 
the  first  exposure  (first  laser  pulse)  are  “derotated”  an  angle  QAt  into  the  second  image 
using  the  derotation  scheme  outlined  earlier.  The  uncertainties  in  Q  and  At  for  each 
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individual  image  combine  to  give  <1%  additional  uncertainty  to  all  vectors  in  the  image. 
Again,  since  this  derotation  is  applied  to  all  particles  in  an  image  equally,  the  actual 
uncertainty  arises  when  making  comparisons  between  images,  not  between  vectors  in  a 
given  image. 

To  eliminate  ambiguity  between  first  and  second  image  particles  (and  thus  know 
which  ones  to  derotate),  this  step  assumes  that  the  two  images  are  not  overlapped.  This 
places  an  onerous  constraint  on  the  experimental  parameter  space  since  non-overlap  only 
occurs  for  high  rotation  and  low  fluid  velocity  (Reynolds  number),  or  if  the  viewable 
portion  of  the  test  section  is  reduced  to  a  small  fraction  of  the  available  width  (from  8mm  to 
1  or  2mm). 

Once  the  particles  have  been  derotated  they  are  paired  with  likely  matches  based  on 
an  expected  range  of  angle  and  velocity  magnitude.  Finally,  the  intensity  signatures  of  the 
paired  particles  are  correlated  (each  with  its  double)  to  yield  a  Ax,  Az  estimate  of  motion. 
To  find  the  tip  of  the  central  peak  in  the  correlation  the  intensity  centroid  of  the  top  25%  of 
the  peak  is  calculated.  The  uncertainty  of  determining  this  peak  is  estimated  at  <0.5pLxels. 
For  8  pixels  of  net  motion,  this  represents  a  ±6%  uncertainty  in  each  individual  vector. 
Other  methods  of  determining  the  correlation  peak  were  attempted,  including  a 
sophisticated  spatial  integral  of  a  double  gaussian,  but  resulted  in  comparable  accuracy  due 
to  the  limited  pixel  resolution  and  the  sometimes  irregular  shape  of  the  correlation  peaks. 
Obviously,  with  greater  pixel  resolution  (or  with  larger  particle  separation)  this  uncertainty 
can  be  reduced  sigmficantly.  Figure  2.10  shows  the  result  of  processing  the  image  in 
Figure  2.9.  This  image  was  taken  near  the  test  section  side  wall  (y/d=  0.09)  and  shows  a 
strong  mean  velocity  in  the  direction  of  rotation.  This  is  evidence  of  the  trademark  Coriolis 
vortex  which  will  be  dissected  in  detail  in  chapters  3  and  4. 

Though  this  method  is  fairly  robust,  it  also  has  serious  limitations.  As  mentioned 
above,  the  non-overlap  requirement  stipulates  a  high  Rot  and  low  Re  and  essentially 
precludes  operation  in  the  Re  range  of  interest  (>10000).  In  addition,  the  particle 
identification  step  becomes  tedious  when  optical  background  noise  is  present.  Often, 
manual  deletion  of  erroneous  particles  is  required  to  “clean  up”  an  image.  Finally,  since  the 
pairmg  is  done  one  particle  at  a  time,  the  process  is  time  consuming.  A  typical  noisy  image 
may  take  10-20  minutes  to  reduce  to  a  velocity  field.  To  improve  on  this  figure  of  merit  a 
number  of  standard  techniques  were  employed  such  as  “shding  and  stretching”  the  intensity 
pattern  before  correlation  and  consulting  the  velocity  of  neighboring  particles  when  trying 
to  resolve  multiple  matchup  possibilities.  Even  still,  the  limitations  on  Re  and  Rot 
ultimately  drove  the  switch  to  the  high  density  correlation  technique. 
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High  Density  PIV  Method 

In  high  density  PIV  the  image  is  divided  into  interrogation  boxes  (typically  75  x  75 
pixels),  each  box  containing  15-25  particles.  Figure  2.1 1  shows  a  sample  high  density 
image.  To  process  the  image,  the  entire  box  pattern  is  “derotated”  as  before  and  then  cross- 
correlated  with  the  section  of  image  it  overlaps  once  derotated.  Fig  2.12  depicts  the  central 
region  of  particles  from  Figure  2.1 1  divided  into  a  6  by  8  matrix  of  interrogation  boxes. 
Also  shown  is  a  sample  interrogation  box  which  has  been  derotated  and  then  “overlapped” 
with  the  original  image.  Finally,  Fig  2.12  contains  a  surface  map  representation  of  the 
cross-correlation  output  for  the  sample  box.  The  location  of  the  central  peak  gives  the 
desired  Ax,Az  to  compute  the  velocity  vector.  This  vector  is  indicated  on  the  sample  box, 
and  aids  in  the  visual  identification  of  4  to  5  obvious  particle  pairs.  The  complete  vector 
field  for  Figure  2. 1 1  is  shown  in  Figure  2. 13.  As  in  the  particle  tracking  method,  the  peak 
of  the  cross-correlation  is  determined  using  the  intensity  centroid  technique  so  the  same 
±6%  uncertainty  applies  to  these  vectors. 

A  source  of  potentially  greater  uncertainty  arises  when  the  image  is  tainted  with 
stray  background  light  (noise).  When  this  is  the  case  (especially  near  the  side  walls)  the 
image  may  look  like  Figure  2. 14.  Here  the  cross-correlation  map  from  a  sample 
interrogation  box  shows  several  peaks  rather  than  a  single  central  peak.  Even  with  the 
selected  vector  shown  on  the  sample  box  overlay  in  Figure  2.14,  it  is  more  difficult  to 
identify  particle  pairs  here  than  it  was  in  Figure  2. 12.  The  high  density  method  uses  the 
same  techniques  to  isolate  the  “real”  peak.  The  range  of  velocity  and  angle  are  limited  to 
within  expected  bounds  (typically  -5<w<+5m/s  and  l<u<7m/s  for  a  mean  IVI  flow  of  3-4 
m/s).  Also,  vectors  in  neighboring  boxes  are  consulted  to  refine  the  peak  selection.  And, 
as  a  further  noise  filter,  a  candidate  peak  is  constrained  to  have  a  magnitude  >50%  of  the 
maximum  peak  in  the  correlation  to  be  considered  for  selection.  Unfortunately,  in  some 
cases  the  peak  must  still  be  hand  picked  based  on  user’s  judgment  or  the  vector  deleted 
altogether  from  the  image.  This  of  course  adds  uncertainty  to  the  measured  velocity. 

To  better  understand  the  source  of  this  uncertainty,  a  simulation  was  written  to 
generate  artificial  PIV  images  with  user  selected  flow  conditions.  Variables  include: 
particle  density,  rotational  frequency,  pulse  time  separation,  mean  Ax  particle  motion,  mean 
Az  particle  motion,  turbulence  level  (Ax'/Ax^^n  and  Az'/Az^^j, ),  x  and  z  gradients  in 
^mean  ^mean  ’  Variable  paTticle  intensity,  and  particle  drop-out  rate.  These  last  two, 
particle  drop-out  and  variable  intensity,  simulate  real-life  limitations  of  the  PIV  technique. 
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Since  the  laser  sheet  is  of  finite  thickness  and  has  a  gaussian  intensity  distribution,  any 
velocity  component  normal  to  the  sheet  (in  the  y  direction)  will  cause  a  percentage  of 
particles  to  drop  outside  the  image  before  the  second  laser  pulse.  At  the  same  time,  some 
new  particles  will  drop  into  the  image  that  were  not  present  during  the  first  pulse.  Finally, 
even  if  a  particle  remains  in  the  sheet  for  the  two  laser  bursts,  its  signature  may  be  more  or 
less  intense  with  the  second  pulse.  All  of  these  features  create  noise  (erroneous  peaks)  in 
the  correlation  (e.g.  Figure  2.14). 

Figure  2. 15  shows  a  fabricated  image  with  0%  drop-out  and  low  random  motion 
(turbulence).  Also  shown  is  a  sample  box  overlay  and  associated  correlation  map.  The 
vector  indicated  on  the  sample  box  overlay  aids  identification  of  numerous  particle  pairs. 
Figure  2. 1 6  is  another  fabricated  image  with  50%  drop  out  and  high  turbulence  (but  the 
^mean  ^tc...).  Here  the  vector  indicated  on  the  sample  overlay  box  does 
not  have  numerous  associated  pairs.  Comparing  the  correlation  maps  for  Figures  2. 15  and 
2.16,  the  one  with  no  drop-out  and  low  turbulence  has  a  single  dominant  peak.  The  same 
peak  in  the  case  with  50%  drop-out  and  high  turbulence  is  greatly  reduced  in  magnitude. 
Also,  a  number  of  “erroneous”  peaks  of  comparable  magnitude  obscure  the  correct  peak 
selection  in  Figure  2. 16. 

Returning  again  to  the  correlation  maps  from  actual  PIV  data  (Figures  2.12  and 
2.14),  many  similarities  with  the  fabricated  data  are  evident.  The  high  drop-out  fabricated 
data  correlation  map  (Figure  2. 16)  is  similar  to  the  data  correlation  map  near  the  wall 
(Figure  2. 14).  While  the  0%  drop-out  fabricated  data  correlation  map  (Figure  2. 15) 
resembles  the  centerline  data  correlation  map  (Figure  2.12).  This  suggests  that  the 
difficulties  associated  with  selecting  the  correct  vector  in  near  wall  PIV  images  stem  from 
particle  drop-out  and  high  turbulence.  This  is  not  surprising  since  we  expect  the  flow  to  be 
highly  three  dimensional  in  this  region,  with  large  scale  vortical  structures  and  high  levels 
of  turbulence.  While  particle  drop-out  can  be  minimized  by  reducing  the  pulse  separation, 
there  is  a  trade  off  with  the  accuracy  of  the  velocity  measurement.  As  the  pixel  separation 
between  particles  is  reduced  relative  to  the  uncertainty  in  the  correlation  peak  determination 
(constant  at  <0.5  pixel)  the  corresponding  velocity  uncertainty  increases. 

Steep  velocity  gradients  are  another  source  of  uncertainty  near  the  side  walls. 

Adrian  [1]  recommends  lAul/u  <  0.2  in  an  interrogation  region  to  avoid  inaccuracies  due  to 
low  velocity  bias  and  correlations  with  multiple  erroneous  peaks.  Low  velocity  bias  occurs 
because  particles  with  a  lower  velocity  have  a  greater  propensity  to  remain  in  the  sheet  for 
the  second  pulse.  So,  any  correlation  will  be  biased  toward  the  particles  of  lowest  velocity. 
In  the  near  wall  data  presented  Figure  2. 14  and  chapter  4,  lAwl/u  can  reach  0.5  within  a  y/d 
distance  comparable  to  the  laser  sheet  thickness  (0.4mm).  So,  the  image  processing  will 
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produce  vectors  with  a  wide  range  of  u  and  w  because  the  flow  features  are  spatially  of  the 
same  order  as  the  light  sheet  thickness.  Figure  2.17  is  the  processed  vector  field  from  the 
image  in  figure  2.14.  There  is  a  wide  range  of  u  and  w  since  the  image  was  taken  at 
y/d=0.93.  Data  presented  in  chapter  4  will  show  that  y/d=0.93  is  the  Coriolis  vortex  center 
for  this  test  condition.  For  these  reasons,  the  data  presented  in  chapter  4  uses  primarily 
statistical  and  ensemble  averages  to  describe  a  flowfield  that  is  really  very  unsteady  and 
complex. 

It  is  difficult  to  know  how  to  adequately  express  the  uncertainty  associated  with 
these  practical  limitations.  The  uncertainty  is  a  function  of  y/d  since  the  optical  noise  and 
flow  volatility  increase  markedly  toward  the  side  walls  (y/d  =  0  &  1).  One  measure  of  the 
uncertainty  associated  with  various  images  is  the  percentage  of  interrogation  boxes 
requiring  manual  selection  of  the  correlation  peak.  A  second  is  the  range  of  mean  image 
velocities  at  a  given  y/d.  Both  of  these  representations  are  shown  in  Figure  2.18  for  an 
entire  set  of  data.  The  variance  grows  dramatically  near  the  wall.  Another  representation 
of  the  randomness  in  the  data  is  found  by  taking  the  standard  deviation  of  all  of  the  vectors 
in  each  image  plotted  as  a  function  of  y/d  (Figure  2. 19).  Again,  the  range  of  values  grows 
substantially  near  the  wall.  Part  of  this  is  due  to  the  fluid  unsteadiness  and  steep  velocity 
gradients,  and  part  is  due  to  the  uncertainty  of  selecting  the  “correct”  peak  in  a  noisy 
correlation  map. 

In  summary,  the  error  sources  are  well  documented  and  amount  to  6%  for  each 
vector.  In  addition  there  is  an  image  bias  error  of  1  %  and  a  bias  error  for  entire  sets  of 
images  of  4%  (due  to  the  pixel  center  of  rotation  determination).  Finally,  because  the 
Coriolis  vortex  is  confined  to  a  region  near  the  side  wall  comparable  to  the  laser  sheet 
thickness,  surface  reflections,  particle  dropout,  high  turbulence,  and  steep  velocity 
gradients  combine  to  increase  the  velocity  uncertainty  here  (by  10-15%).  Again,  this  is 
why  the  reporting  in  chapter  4  focuses  on  mean  and  ensemble-averaged  velocity  data  rather 
than  isolated  vectors. 


Wall  Temperature  Measurements 

The  wall  temperature  measurement  is  made  using  an  Electro-Optical  System 
HgCdTe  infrared  detector  [2].  The  detector  is  housed  in  a  dewar  of  liquid  nitrogen  which 
is  mounted  on  a  two-axis  traverse  system  with  the  focusing  optics  (Fig  2. 1  &  2.20).  The 
magnification  of  the  convex/concave  2  mirror  focus  system  is  approximately  1,  so  the 
spatial  resolution  of  the  device  is  equal  to  the  size  of  the  HgCdTe  sensor,  which  is  Inun^. 


32 


This  is  a  considerable  improvement  over  traditional  temperature  measurement  using 
thermocouples,  which  typically  provide  only  4-6  measurement  locations  along  each  side  of 
a  14d  passage  [51].  Guidez  [16]  is  the  only  other  researcher  to  have  utilized  this  high 
spatial  resolution  measurement  technique.  Similar  resolution  has  more  recently  been 
attained  by  using  liquid  crystals  [14].  Two  flat  mirrors  are  located  at  90°  to  each  other 
behind  the  test  section  and  provide  optical  access  to  all  four  sides  of  the  rotating  passage 
(Figure  2.21).  The  horizontal  traverse  is  used  to  move  the  focal  point  from  one  side  to 
another  and  the  vertical  traverse  allows  measurement  along  the  axis  (x  direction)  of  the 
passage. 

To  acquire  a  signal,  the  sensor  and  optics  are  moved  to  a  desired  location  and 
remain  fixed  while  the  heated  test  section  is  rotated  in  front  of  them.  When  the  test  section 
passes  into  the  focal  point  of  the  optics,  the  radiation  emitted  from  the  heated  surface  is 
focused  onto  the  sensor.  The  sensor  produces  a  voltage  signal  proportional  to  the  level  of 
incident  radiation.  Then  using  the  Stefan-Boltzmann  Law,  q^  oc  r  ,  the  temperature  of 
this  spot  on  the  surface  can  be  deduced.  The  AC  coupled  sensor  has  a  response  time  on  the 
order  of  microseconds  which  means  that  an  entire  row  of  data  can  be  collected  during  a 
single  pass  of  the  test  section.  This  data  then  represents  the  temperatures  in  a  1mm  wide 
strip  on  one  side  of  the  test  section,  at  a  given  x  location.  Obviously,  the  passage  must  be 
rotating  to  obtain  a  signal  (since  the  IR  sensor  is  stationary),  so  a  Rot=0  reference  data  set 
can  only  be  approached.  Previous  researchers  who  used  the  same  facility  have  described  in 
detail  the  process  of  focusing,  calibrating,  and  testing  the  IR  system  [2,29,15],  so  only  a 
brief  outline  is  included  here. 

Using  optical  development  software  the  focal  spot  size  (Imm^)  of  the  double  mirror 
optical  system  was  found  to  increase  by  a  factor  of  >4  for  a  focal  shift  of  5mm  (Figure 
2.22).  To  insure  a  spatial  resolution  within  +20%  of  the  nominal  value,  the  best  focus 
position  must  be  maintained  to  within  ±lmm.  This  is  done  for  each  side  by  observing  the 
sharpness  of  the  ITO/quartz  and  quartz/air  interfaces  during  a  “focusing”  run  before  testing. 
Smce  quartz  has  a  factor  of  3  greater  emissivity  the  signal  here  is  much  stronger  for  the 
same  temperature.  By  translating  the  optical  system  horizontally  while  monitoring  the  IR 
signal  each  time  the  heated  passage  rotates  in  front  of  it,  the  point  of  best  focus  (sharpest 
interface  resolution)  is  determined  for  each  side. 

Once  the  focal  positions  are  determmed,  a  calibration  procedure  is  employed  as 
follows.  A  copper  bar  with  square  cross-section  just  smaller  than  the  10mm  x  10mm  ID  of 
the  quartz  passage  is  inserted  into  the  test  section  extending  from  inlet  to  exit.  A  resistive 
heating  element  and  three  Type  K  thermocouples  (spread  evenly  along  its  length)  are 
embedded  in  the  copper  bar.  Once  heated,  the  copper  creates  a  uniform  temperature 
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distribution  with  temperature  gradients  primarily  in  the  axial  direction  due  to  conduction  out 
the  ends  of  the  tube.  With  time,  these  gradients  become  small  and  the  entire  quartz  passage 
assumes  the  temperature  of  the  calibration  bar.  The  thermocouples  provide  3  reference 
temperatures  which  are  fit  with  a  parabola  to  give  T(x)  along  the  copper  bar  (and  by 
assumption  along  the  quartz  exterior  wall  also).  Infrared  maps  for  all  four  sides  are  then 
taken  at  3-5  different  temperature  (heat  flux)  settings.  The  sensor  output  voltage  data  (Y^) 
from  each  spatial  location  is  then  collected  and  correlated  with  a  linear  fit. 


=C0  +  Cl-Vdc 

The  result  is  a  CO  and  Cl  coefficient  for  each  spatial  location.  These  are  then  used  to 
convert  subsequent  voltage  measurements  from  the  IR  sensor  to  temperatures: 

T  =  (C0  +  Cl-Vj,f‘' 

Performing  a  calibration  in  this  manner  eliminates  the  temperature  measurement 
sensitivity  to  local  variations  in  emissivity  and  view  factor  since  each  spot  on  the  surface  is 
individually  calibrated  (no  emissivity  or  view  factor  is  assumed).  The  mean  error  in  the 
above  linear  fit  is  2°C  for  the  temperature  measurement.  Figure  2.23  shows  a  sample 
temperature  map  from  an  actual  test  run. 


Nusselt  Calculation 

To  compute  the  Nusselt  number  on  the  inside  of  the  test  section  both  the  local 
temperature  and  heat  flux  must  be  determined.  The  Nu  is  calculated  by, 

where  Tg,„  =  (T„  +  Tg„ig)/2  and  the  thermal  conductivity,  k,  is  evaluated  at  the  film 
temperature.  The  available  data,  though,  is  not  on  the  interior  walls,  rather  it  is  on  the 
exterior  walls  of  the  passage.  So,  several  steps  are  required  to  move  from  the  available 
data  to  the  desired  Nu.  This  section  reviews  these  necessary  steps. 
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First,  to  obtain  the  distribution  of  heat  flux,  q,  generated  in  the  ITO  film,  the  current 
in  each  of  the  four  sides  is  deduced  from  the  parallel  current  law.  The  film  resistances 
measured  at  room  temperature  were:  front  side  wall  =  50.5Q,  leading  wall  =  60.5  Q,  back 
side  wall  =  69  Q,  and  trailing  wall  =  61.5  Q.  The  net  resistance  is  14.9  Q.  To  determine 
the  resistance  at  the  operating  conditions,  these  side  resistances  are  adjusted  to  reflect  an 
average  operating  temperature  higher  than  room  temperature.  This  adjustment  is  computed 
using  the  temperature  coefficient  of  resistivity  a  =  310e-6/°C  described  earlier  in  this 
chapter.  From  this  the  current  and  potential  drop  on  each  side  is  calculated.  The  potential 
drop  and  surface  temperature  map  are  used  to  operate  the  variable  resistivity  code 
mentioned  earlier  (Appendix  B).  Again,  the  code  adjusts  the  local  heat  flux  for  variations 
in  the  current  density  due  to  the  dependence  of  local  resistivity  on  temperature.  The  result 
IS  nearly  constant  heat  flux  for  each  side  (a  is  low  enough  for  ITO  that  it  has  <1%  effect  on 
q  for  these  test  conditions). 

The  next  step  is  to  assess  the  heat  loss  due  to  radiation  fi-om  the  passage  exterior 
walls  to  the  surrounding  vacuum  chamber  walls.  This  is  estimated  using, 

q  rad  =  ITO  (t^o  ~  '^enclosure  ) 

where  Erro  =  0.27.  This  component  is  approximately  4.5%  of  the  total  heat  flux  generated 
in  the  film.  Because  it  is  a  function  of  temperature,  hot  spots  have  a  larger  radiation  than 
cold  spots.  This  introduces  an  additional  spatial  non-uniformity  of  ±1.5%.  With  this  q^^ 
deducted  from  the  q  generated  in  the  ITO,  the  remainder  is  conducted  into  the  passage  and 
ultimately  into  the  coolant  flow.  The  last  step  is  then  the  conduction  through  the  quartz. 

With  a  wall  thickness/passage  width  ratio  of  1.5mm/10mm  =  15%  the  passage  is  not  thin 
enough  to  ignore  lateral  conduction  and  simply  assume  all  conduction  is  1-D.  So,  a  finite 
element  analysis  of  the  heat  flow  was  undertaken  to  convert  T  and  q  on  the  exterior  surface 
to  the  desired  T  and  q  on  the  interior  surface.  Applying  conservation  of  energy  to  an 
elemental  volume  at  the  test  section  exterior  surface,  and  assuming  steady  state, 

qrroAxAy  =  AxAy +  qi,j,k^i,jHkAxA2+qi,jj,^i  j.j^AxAz 

+“1  i,j,k-»i+l,j,k  + q  i,j,k->i-],j,k  “^y^  +  q  i,j,k-»i,j,k+l 
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■'i.j.k  ■ 


Since  the  ITO  film  thickness  (4500  Angstroms)  is  much  smaller  than  the  quartz  passage 
wall  thickness  (1.5mm),  the  heat  generation  in  the  film  is  essentially  a  uniform  surface  heat 
flux.  Then,  by  applying  Fourrier’s  law  of  steady  heat  conduction. 


-k 


dr 

dx 


the  heat  flows  (q)  between  adjacent  elements  of  the  passage  wall  can  be  expressed  in  terms 
of  temperature  differences.  Discretizing  Fourrier’s  law  yields. 


qi,j,k->i+l,j,k 


^i+l.j,k  "^i,j,k 
Ax 


Then  substituting  this  into  the  conservation  of  energy  equation,  we  have 


qn-oAxAy  =  OE(T|i,k - Tlte„„)AxAy 


Ax  Ax  Az 


Since  quartz  is  opaque  at  the  IR  wavelength,  the  radiometer  measures  the  temperature  on 
the  exterior  surface.  So,  all  of  the  temperatures  at  “k”  are  known.  Solving  for  the  only 
unknown  temperature,  Ti  j  ,^^.i: 
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Once  all  the  element  temperatures  at  “k+l”  are  determined,  a  similar  expression  for  the 
temperature  at  “k+2”  in  terms  of  “k+l”  values  is  solved.  When  the  interior  surface  element 
is  reached,  its  temperature  and  exiting  heat  flux  allow  the  calculation  of  the  convective  heat 
transfer  coefficient,  h,  and  Nu=hd/k. 

h  =  ^U»k+n-»i,j,k+n+l 
^i,j,k+n  ~  Tfilm 

This  straightforward  implementation  produces  the  result  that  while  all  the 
temperatures  drop  through  the  thickness,  hot  spots  experience  less  of  a  drop  than  cold 
spots.  This  is  because  a  hot  spot  dumps  a  higher  percentage  of  its  available  heat  flux 
laterally  and  has  less  heat  available  to  conduct  through  the  thickness.  What  results  is  a  non- 
negligible  readjustment  of  q  away  from  hot  spots  in  the  passage  wall.  So,  when  compared 
to  a  simple  1-D  conduction  analysis,  the  Nu  calculated  using  a  3D  conduction  algorithm  is 
lower  at  the  hot  spots  and  higher  at  the  cold  spots.  The  3D  algorithm  also  incorporates  the 
variation  in  quartz’  thermal  conductivity,  k,  with  temperature  which  results  in  an  additional 
i2.5%  variation  in  q  (better  conduction  at  hot  spots).  Figure  2.24  compares  internal 
surface  temperature  maps  obtained  using  both  ID  and  3D  conduction.  The  difference  is 
barely  perceptible  here.  The  bulk  of  the  effect  is  seen  in  the  q  distribution,  which  is  shown 
in  Fig  2.25  for  both  ID  and  3D.  Here  the  average  q  for  each  side  is  plotted  as  a  function  of 
X.  The  difference  between  the  two  methods  of  conduction  analysis  is  larger  than  10%  at 
some  points.  MedweU  et  al  [36]  also  found  that  accounting  for  wall  conduction  was 
essential  to  correctly  predicting  Nu  in  their  computational  study  of  a  circular  cross-section 
passage  with  constant  heat  flux  on  the  exterior  wall.  Figure  2.25  also  portrays  the  disparity 
in  heat  flux  generated  from  the  four  ITO  films.  As  mentioned  earlier,  the  bulk  resistances 
are  not  equal  (owing  to  film  manufacturing  variations  larger  than  expected),  and  since  they 
are  connected  in  parallel,  the  generated  heat  flux  also  varies.  The  effect  on  the  data  is 
reviewed  in  chapter  4. 

One  final  note  regards  the  sensitivity  of  the  finite  element  algorithm  to 
discontinuous  temperature  or  heat  flux  distributions  on  the  exterior  surface.  Because  such 
small  temperature  differences  drive  a  large  heat  flux  (AT=1°C  generates  600  W/m^  of 
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conducted  heat  flux,  or  6%  of  the  total  amount  generated  in  the  ITO),  an  input  temperature 
data  map  like  the  raw  data  in  Figure  2.23  requires  a  dense  spatial  grid  to  resolve  the 
conduction  without  “blowing  up”.  To  avoid  the  computational  time  required  to  do  this,  the 
data  was  fit  with  empirical  relations  to  create  smooth,  continuous  distributions  of  T  and  q 
while  preserving  the  general  trends  in  the  data.  Hence  the  even  contours  in  Figure  2.24 
(which  is  an  empirical  fit)  vs.  Figure  2.23  (which  is  raw  data).  The  fit  involves  a  6th  order 
polynomial  fit  to  the  perimeter  averaged  T(x)  data  and  a  single  sine  wave  with  variable 
amplitude  and  phase  to  fit  the  circumferential  variations  at  each  x.  In  addition,  the  data  at 
the  comers  of  the  tube  (non-coated)  were  disregarded,  so  only  the  center  10mm  of  each 
wall  section  were  used  to  create  a  40mm  perimeter  in  the  3D  conduction  model.  Figure 
2.26  compares  the  raw  temperature  map  to  the  fitted  profile.  Even  with  a  smooth 
temperature  profile,  the  discontinuity  in  q  (from  side  to  side)  required  a  post-smoothing  of 
q  and  T  along  a  1mm  wide  region  near  each  edge  of  the  four  ITO-coated  strips.  The  final 
Nu  maps  and  mean  Nu  plots  are  presented  in  chapter  4. 

The  net  uncertainty  in  Nu  comes  from  3  sources:  q,  T„ ,  and  T^^^ .  was 
determined  to  within  ±1°C  using  energy  conservation  along  the  passage  and  contributes  an 
uncertainty  of  0.7%  to  Nu.  The  external  T^  measurement  has  an  uncertainty  quoted  earlier 
of±2°C.  This  contributes  ±1.5%  uncertainty  to  Nu.  An  additional  ±1.9%  uncertainty  in 
Nu  is  associated  with  the  empirical  temperature  fitting  (within  ±2.5°C)  and  3D  conduction 
algorithm  used  to  obtain  the  internal  T„ .  Finally,  the  heat  flux  measurement  has  the  largest 
contribution  since  the  current  uncertainty  of  ±2.5%  is  squared.  This  results  in  a  q  (and  Nu) 
uncertainty  of  5%.  Using  Kline  and  McClintock’s  [33]  uncertainty  estimation 
methodology,  the  net  absolute  uncertainty  in  Nu  is  19. 1%. 

For  the  discussion  which  follows  in  chapter  4,  it  is  important  to  distinguish 
between  relative  uncertainty  and  absolute  uncertainty  in  the  Nu  calculation.  Since  many  of 
the  conclusions  are  based  on  comparisons  between  data  sets,  they  are  subject  only  to  the 
relative  uncertainty.  When  comparing  Nu  data  from  the  same  side  of  the  test  section,  the 
long  timescale  of  the  ±2.5%  drift  in  the  current  supply  is  not  applicable.  The  only 
uncertainties  that  apply  are  those  from  the  T^  measurement  (±1.5%)  and  3D  conduction 
(±1.9%).  This  gives  a  net  relative  uncertainty  of  ±3 .4%.  When  comparing  Nu  from 
various  sides  of  the  passage,  the  current  drift  does  apply,  and  brings  the  net  relative 
uncertainty  in  Nu  to  ±8.4%.  Finally,  when  comparing  data  from  different  test  runs,  the 
full  Nu  uncertainty  of  ±9.1%  is  applicable.  This  is  evident  in  the  comparison  of  two  sets 
of  Nu  data  at  comparable  operating  conditions  shown  in  Figure  2.27.  The  trends  in  Nu 
will  be  fully  discussed  in  chapter  4. 
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1.  Vacuum  Chamber  /  Protective  Casing 

11.  Motor 

2.  Rotating  Arm 

12.  Instrumentation  Slip  Ring 

3.  Test  Section  and  Mirrors 

13.  Housing 

4.  Balance  Weight 

14.  IR  detector 

5.  Shaft 

15.  Imaging  system 

6.  Power  Slip  Ring 

16.  Seals 

7.  Heat  Exchangers 

17.  Optical  Encoder 

8.  Onboard  Instrumentation  Box 

18.  Power  wires 

9.  Inlet  flow 

10.  Outlet  flow 

Figure  2. 1 :  Schematic  of  Internal  Cooling  Test  Facility 


39 


UNCOATED  QUARTZ  COATED  TEST  SECTION 


Figure  2.2:  Schematic  of  Quartz  Test  Section  with  Indium  Tin  Oxide  (TTO) 
Coating  and  Electrical  Contact  Spring  Indicated. 


(Mates  to  End  of  Rotating  Arm) 


Figure  2.3:  Schematic  of  Quartz  Test  Section  mounted  in  Housing  on  Rotating  Arm. 
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Laser  Table 


Vacuum 
Tank  ' 


(TOP  VIEW) 

Cylindrical  Lens 


Figure  2.4:  Schematic  of  Laser  and  Optical  Layout. 


LS  -  Leading  Side 


Figure  2.5:  Schematic  of  Test  Section  showing  Axis  and  Velocity  Components. 


Inside  Vacuum  Tank 


Adjustable  Blocks 


Outside  Vacuum  Tank 


\  1 .25cm  thick 

Camera  Port  Window 


Figure  2.6:  Schematic  of  Camera  and  Test  Section  Imaging  Layout. 
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Mounting  Head 


Inserted  Alignment  Tool 


Figure  2.7:  Schematic  of  Laser  Alignment  Tool  Inserted  into  Rotating  Test  Section. 


Double  Exposure  of  Wire-Cross  Alignment  Tool  (rotation  is  right  to  left) 


Figure  2.8:  Alignment  Cross  Double  Image  and  Surface  Map  of  Cross  Image  Correlation 


46 


Flow  Direction  is  Bottom  to  Top.  Rotation  Direction  is  Right  to  Left 


Figure  2.9:  Sample  PIV  Image  for  Low  Density  Method 
Data  for  Re=2500,  Rot=0.45,  d.r.=0.0,  at  x/d=3.8  and  y/d=0.09 
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I< - ^Second  Pulse->l<— First  Pulse - >1 


Flow  Direction  is  Bottona  to  Top.  Rotation  Direction  is  Right  to  Left 
(*  indicates  “derotated”  position  of  particles  from  1“  image  into  2““*  image) 


Figure  2. 10:  Result  of  Image  Processing  for  Figure  2.9  using  Low  Density  Method 
Data  for  Re=2500,  Rot=0.45,  d.r.=0.0,  at  x/d=3.8  and  y/d=0.09 
Mean  Image  Vector:  u  =  1.76  m/s  and  w=-0.41m/s 
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Processed  PIV  Image  from  Fig  2.11:  mean  u/uin=1.064  and  mean  w/uin=0.078  (Vectors  Enlarged) 
Flow  Direction  is  Bottom  to  Top  (x).  Rotation  Direction  is  Right  to  Left  (-z). 


Figure  2.13:  Processed  PIV  Image  (Figure  2. 1 1)  using  High  Density  Method. 
Data  for  Re=8100,  Rot=0.2,  &  d.r.=0.0,  at  x/d=7.9,  y/d=0.44,  &  -0.3  <  z/d  <  0.38 
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PIV  Image  near  side  wall  (y/d=0.93)  with  Interrogation  Box  Indicated.  Note  glare  from  surface  reflection. 
Flow  Direction  is  Bottom  to  Top  (x)  and  Rotation  Direction  is  Right  to  Left  (-z). 


Box  Indicated  Above  (with  Mean  Vector)  Cross-Correlation  Map  of  Overlay  Box 


Figure  2.14:  (a)  Sample  PIV  Image  for  Re=8100,  Rot=0.2,  d.r.=0.0,  at  x/d=7.9  and  y/d=0.93 
(b)  Derotated  Sample  Box  with  Overlay  and  Vector  (c)  Cross-Correlation  Map  of  Sample  Box 
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Fabricated  PIV  Image  with  interrogation  Box  Indicated.  Drop  out  =  0%  &  Tu=5%.  Mean  u=3.78  m/s 
&  mean  w=-1.08  m/s.  Flow  Direction  is  Bottom  to  Top  (x)  and  Rotation  Direction  is  Right  to  Left  {-2). 


Derotated  Overlay  of  Interrogation 
Box  Indicated  Above  (with  Mean  Vector) 


Figure  2.15:  (a)  Fabricated  PIV  Image  with  0%  Particle  Drop-Out  and  5%  Turbulence. 

(b)  Derotated  Sample  Box  with  Overlay  and  Vector  (c)  Cross-Correlation  Map  of  Sample  Box 
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Fabricated  PIV  Image  with  Interrogation  Box  Indicated.  Drop  out  =  50%  &  Tu=15%.  Mean  u=3.78  m/s 
&  mean  w=-1 .08  m/s.  Flow  Direction  is  Bottom  to  Top  (x)  and  Rotation  Direction  is  Right  to  Left  (-z). 


Derotated  Overlay  of  Interrogation 


Box  indicated  Above  (with  Mean  Vector) 


Figure  2.16:  (a)  Fabricated  PIV  Image  with  50%  Particle  Drop-Out  and  15%  Turbulence. 

(b)  Derotated  Sample  Box  with  Overlay  and  Vector  (c)  Cross-Correlation  Map  of  Sample  Box 
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Processed  PIV  Image  from  Fig  2.14:  mean  u/uin=1 .46 
and  mean  w/uin=-0.656  (Vectors  Enlarged) 

Flow  Direction  is  Bottom  to  Top.  Rotation  Direction  is  Right  to  Left. 


Figure  2.17:  Processed  PIV  Image  (Figure  2.14)  using  High  Density  Method. 
Data  for  Re=8100,  Rot=0.2,  &  d.r.=0.0,  at  x/d=7.9,  y/d=0.93,  &  -0.15  <  z/d  <  0.2 
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PIV  Image  Processing:  Measure  of  Uncertainty.  Percentage 
of  Vectors  in  Each  image  Requiring  Manual  Selection  of 
Correlation  Peak  (Ensemble  Averaged  at  each  y/d) 


y/d 

PIV  Image  Processing:  Measure  of  Unsteadiness/Uncertainty 

Standard  Deviation  of  image-to-lmage  Variations  of  w  and  u 


(at  same  y/d).  Non-dimensionalized  by  inlet  velocity 


y/d 


Figure  2.18:  Measures  of  Uncertainty/Unsteadiness  in  PIV  Images,  (a)  %  Vectors  Requiring 
Manual  Selection  (b)  Standard  Deviation  of  Image-to-Image  Variations  at  constant  y/d 


PIV  Image  Processing:  Measure  of  Unsteadiness/Uncertainty 
Standard  Deviation  of  w  and  u  over  image  (divided  by  inlet 
velocity).  Ensemble  Averaged  for  all  Images  at  the  same  y/d 
g  Re=8100,  Rot=0.2,  d.r.=0.0  Data  Series 


y/d 


Figure  2. 19:  Measure  of  Unceitainty/Unsteadiness  in  PIV  Images. 
Ensemble  Averaged  Standard  Deviation  of  w  and  u  over  image  at  constant  y/d. 
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Primary 


Figure  2.20:  Schematic  of  Infrared  Imaging  System  for  Wall  Temperature  Measurement 
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Figure  2.21 :  Optical  Layout  for  Infrared  Measurement  System 
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Percent  of  7000  rays  which  pass  [%] 


IR  Optics  for  Internal  Heat  Transfer  Facility:  %  of  rays  from  test  section 
y-position  captured  by  large  collection  mirror  which  go  on  to  impact 
IR  sensor.  Various  focal  positions  out  of  best  focus. 


y  (mm)  measured  vertically  from  focus  center 


Figure  2.22:  Infrared  Optical  System  Spatial  Resolution 
Degradation  with  Focal  Shift  away  from  Position  of  Best  Focus. 
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5degK  Temp  Contours  on  Outside  of  Passage. 


ACTUAL  DATA  WITHOUT  EDGES 


Figure  2.23:  Sample  Temperature  Contours  on  Passage  Exterior  from  IR  Scanner 
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Mean  Heat  Flux,  q  [W/m2]  Mean  Heat  Flux,  q  [W/m2] 


Mean  Heat  Flux  Generated  in  ITO  Thin  Film 
on  the  Exterior  4  Passage  Walls 
Re=8222,  Rot=0.191,  d.r.=0.27,  &  Bo=0.448 
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Figure  2.25:  Mean  Side  Heat  Hux  on  External  and  Internal  Passage  Surfaces. 
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Nu/Nu 


Leading  &  Trailing  Side  Mean  Nu  Data  for  2  Nearly  Identical 
Test  Conditions:  Re=8200,  Rot=0.191  &  0.193,  d.r.=0.27 
Demonstrates  Facility  Repeatibility 


Figure  2.27:  Mean  Side  Nu  Data  for  Leading  and  Trailing  Walls 
Data  for  2  Nearly  Identical  Test  Cases  to  Show  Repeatability 
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Chapter  3  -  Analytical  Model 


Introduction 

The  motivation  for  constructing  a  physically  based  model  of  the  rotating,  heated 
passage  flow  is  two-fold.  During  the  design  phase,  the  model  provided  an  estimate  of 
secondary  flow  velocities  and  their  spatial  extent  for  assessment  of  PIV  feasibility  and 
image  resolution  requirements.  Then  during  the  subsequent  data  acquisition  and  analysis 
phase,  the  model  allowed  for  a  better  understanding  of  velocity  trends  and  sources  of 
secondary  flows.  The  model  is  not  proposed  as  a  predictive  tool  for  generic  rotating 
flowfields.  Several  refinements  which  were  added  to  the  model  after  reviewing  the 
experimental  data  are  also  included  in  this  outline.  These  are  declared  as  empirical 
adjustments  or  refinements  when  they  are  presented  in  the  text. 

To  clearly  expose  the  relative  importance  of  various  effects,  the  model  is  presented 
in  steps  of  increasing  sophistication.  This  begins  with  the  standard  turbulent  pipe  flow, 
and  then  incorporates  Coriolis  effects  and  finally  buoyancy. 


Developing  Passage  Flow 

The  approach  undertaken  here  is  to  assume  that  the  passage  flow  can  be  dissected 
into  independent  shear  flows  on  each  of  the  four  passage  walls  and  a  central  inviscid  “core” 
region.  This  methodology  has  been  used  with  success  by  other  researchers  in  analyzing 
rotating  internal  flows.  Mori  and  Nakayama  [40]  and  Ito  and  Nanbu  [25]  pioneered  this 
method  for  predicting  turbine  cooling  in  the  1960’s  and  1970’s.  Although  there  has  been 
much  emphasis  on  3-D  Navier-Stokes  solvers,  Chew  [10]  and  Govatzidakis  [15]  have 
recently  found  momentum-integral  models  to  be  both  versatile  and  useful  in  predicting  the 
heat  transfer  in  rotating  passages. 

The  validity  of  this  shear  layer/core  layer  approach  is  substantiated  with  the 
following  reasoning.  Turbine  blade  cooling  passages  (and  this  experimental  model  in 
particular)  are  typically  of  short  length-to-diameter  ratio.  The  1/d  ratio  is  1 1.5  for  this 
experiment  and  ranges  from  10  to  25  for  aircraft  and  land-based  engines.  Also  Re^  = 

10000  for  this  experiment,  which  is  usually  considered  to  be  transitional  or  turbulent.  The 
hydrodynamic  entry  length  for  turbulent  pipe  flow  is  10  to  15  diameters  [38].  So,  it  seems 


66 


appropriate  to  consider  the  flow  in  turbine  cooling  passages  with  1/d  <  15  as  developing 
turbulent  flow.  In  fact,  a  conservative  estimate  of  the  boundary  layer  thickness  on  one 
passage  wall  using  a  power  law  velocity  profile  is  approximately  0.4  d  (<0.5  d)  at  x/d  =  7. 

In  a  developing  turbulent  pipe  flow,  the  boundary  layers  on  each  of  the  four 
contiguous  passage  walls  grow  almost  independently  with  distance  from  the  inlet.  Apart 
from  interference  at  the  comers  of  the  square  passage,  without  rotation  the  only  mutual 
influence  the  boundary  layers  have  is  to  jointly  close-off  the  “core”  flow.  This  accelerates 
the  fluid  in  the  center  of  the  passage,  creating  a  higher  boundary  layer  edge  velocity. 

Once  the  four  wall  flows  have  been  separated,  their  boundary  layers  can  be 
satisfactorily  analyzed  using  the  momentum  integral  equation  [30],  derived  by  applying 
conservation  of  mass  and  momentum  to  a  constant  density  2-D  boundary  layer. 


To  OoVo  d0  _ 

- ^  H - = - h  0 

poU„  p°oUoo  dx 

To  compute  boundary  layer  growth  with  distance  down  the  passage  (x),  a  wall 
shear  stress  relation  must  be  assumed.  As  a  compromise  between  accuracy  and  ease  of 
algebraic  manipulation,  a  power  law  form  of  this  relation  is  used  in  this  model. 


0  j  Uoo  dx 


(Eqn  3.1) 


u 


(Eqn  3.2) 


Generally,  for  Re^  <  1,000,000  an  exponent  of  n=7  provides  a  “good”  match  with 
experimental  data  for  external  boundary  layers  [30,44].  For  two  significant  reasons, 
holding  n  to  a  constant  value  of  7  was  not  considered  adequate  for  this  model.  First, 
there  is  a  substantial  body  of  research  [5,19]  which  indicates  that  elevated  levels  of 
freestream  (or  “core”  in  this  case)  turbulence  can  reduce  the  turbulent  boundaiy  layer  shape 
factor  by  creating  a  higher  momentum  “fuller”  boundary  layer.  Specifically,  freestream 
turbulence  levels  of  5-10%  are  reported  to  reduce  the  shape  factor  (H)  by  a  comparable 
percentage.  For  the  assumed  power  law  boundary  layer  profile  employed  in  this  model,  an 
exponent  value  of  n=9  yields  a  shape  factor  which  is  5%  less  than  that  for  n=7.  Since  the 
spatial  turbulence  levels  measured  using  PIV  are  in  the  5-15%  range  (ref.  chapter  2),  a 
higher  exponent  of  n=9  was  deemed  appropriate  for  this  model  (and  indeed  provides  a 
better  match  with  experimental  data). 
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As  a  further  refinement  based  on  comparison  with  velocity  data,  the  power  law 
exponent  is  allowed  to  vary  when  rotation  is  added  to  the  integral  model.  With  rotation,  the 
boundary  layer  growth  rates  are  altered  by  the  convection  of  momentum  deficit  from  wall  to 
wall  by  secondary  crossflows.  The  model  accounts  for  this  transport  between  boundary 
layers  by  adjusting  the  boundary  layer  thickness  and  shape  on  all  four  passage  walls.  How 
this  exchange  is  accounted  for  is  addressed  later  in  more  detail. 

The  implementation  of  the  momentum  integral  equation  employed  in  this  model 
follows  the  steps  outhned  below  and  derived  in  detail  in  a  number  of  fluid  dynamics  texts 
[30,38,44].  Solving  Equation  3.2  for  the  wall  shear  (x^,)  yields; 
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When  this  expression  is  substituted  into  the  integral  momentum  equation  and  terms  are 
collected,  the  following  differential  equation  results. 


^I'Qn+S/n+ly (n+3)(3n+2)/n(n+l)  j  _  3  j^2n/(n+l),^.2/n+l^[((n+3)(3+2/n)/n+l)-(2/n+l)]^^. 


Integrating  this  expression  from  x=0  to  a  point  x>0  in  the  flow  passage,  with  the  initial 
condition  that  the  momentum  thickness  (0)  is  0  at  x=0,  produces  an  expression  for  0(x). 


0(x)  =  f(u^,n,VH 
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(Eqn  3.3) 


where, 


f(u^,n,v)= 


(^2n/(n+3)^2/(n+3) 
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(3n+2)/n 


and  g(n)  = 


(n  +  3)(3n  +  2)-2n 
n(n  + 1) 
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To  evaluate  this  relation  following  the  flow  each  Ax  step  down  the  cooling  passage, 
inlet  conditions  for  velocity  and  temperature  are  required.  Over  the  years,  researchers  have 
noted  the  significant  effect  that  passage  inlet  conditions  have  on  rotating  heat  transfer 
predictions,  especially  in  the  first  outflow  passage  of  a  multipass  calculation.  Since 
experiments  are  generally  conducted  with  long  unheated  starting  lengths,  most  codes  use  a 
fully  developed  inlet  condition  for  velocity  (Poiseuille  flow)  and  a  constant  temperature 
profile.  Prakash  and  Zerkle  [45]  were  first  to  articulate  the  need  for  a  fully  developed  inlet 
condition  for  velocity  which  also  accounts  for  rotation  (before  the  heated  section  begins). 
Considering  the  tapered  inlet  orifice  (Fig  2.3)  and  short  unheated  starting  length  (1.25d)  of 
this  experimental  facility,  constant  inlet  velocity  and  temperature  profiles  were  assumed. 
Then  with  each  Ax  step  down  the  passage,  the  momenrnm  thickness  is  calculated  by 
approximating  Eqn  3.3  as  a  summation. 


0“  =f(u^,n,v) 


U=i 


n+I 


n+3 


(Eqn  3.4) 


At  the  conclusion  of  each  step,  the  effect  of  boundary  layer  growth  on  the  core  flow  is 
assessed  by  applying  conservation  of  mass  to  the  passage  cross-section. 


dd 

rii  =  cons  tan  t  =  pinUjnd^  =  J  j  pudzdy 

00 

So,  the  core  flow  velocity,  u^  =  Uj^ ,  rises  as  the  blockage  due  to  the  wall  layers  increases 
down  the  passage.  Core  acceleration  and  boundary  layer  growth  predictions  using  this 
method  are  shown  in  Figures  3. 1  and  3.2  for  a  Reynolds  number  of  10000.  For  the  case 
shown,  the  core  acceleration  is  12%  by  x/d  of  7  and  the  boundary  layer  thickness  is  0.34. 
This  is  15%  less  than  the  value  of  0.4  quoted  earlier  which  didn’t  account  for  core 
acceleration.  Since  u„  is  part  of  the  integrand  in  Eqn  3.3,  an  accelerating  u^  energizes  the 
boundary  layers  and  retards  their  growth  relative  to  a  constant  ffeestream  velocity  case. 


69 


Passage  Flow  with  Rotation 


The  next  step  is  to  assess  the  effect  of  rotation  on  the  growing  boundary  layers  and 
the  core  flow.  To  do  this,  the  averaged  Navier-Stokes  equations  for  steady, 
incompressible  flow  are  evaluated  in  a  coordinate  system  fixed  to  the  passage  as  shown. 
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and  V  •  u  =  0 
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where  u  =  ui  +  vj  +  wk 
and  Q  =  Qj 


The  — 2Q  X  u  term  is  the  Coriolis  acceleration  which  accounts  for  the  use  of  a  non-inertial 
reference  frame  attached  to  the  rotating  passage.  There  are  two  principle  effects  of  this 
Coriolis  term  which  are  evident  in  the  component  form  of  the  Navier  Stokes  equations. 


x-momentum: 
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y-momentum: 
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z-momentum: 
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The  +2Qu  term  in  the  z-momentum  equation  creates  the  well-documented  Coriolis 
double  vortex  associated  with  pipe  flow  rotating  in  the  orthogonal  mode.  Then,  as  the 
secondary  flow  due  to  the  +2Qu  term  develops,  the  Coriolis  effect  associated  with  the  - 
2f2w  term  in  the  x  momentum  equation  becomes  important.  This  -2Qw  term  provides 
additional  streamwise  acceleration  to  flow  near  the  wall  which  is  flowing  in  the  -z  direction 
(from  trailing  wall  to  leading  wall)  due  to  the  Coriolis  vortex.  These  two  distinct  effects  are 
incorporated  into  the  model  in  the  following  manner. 


First  Coriolis  Component 

Evaluating  the  z-momentum  equation  in  the  **core”  region  of  the  passage,  where  the 
cross-stream  velocity,  w,  is  small  and  the  inertial  and  viscous  terms  can  be  neglected, 
yields  the  following: 


dz 


=  2nu^p 


This  is  the  form  of  the  transverse  pressure  gradient  produced  by  rotation.  Substituting  this 
expression  for  dp/dz  into  the  same  z-momentum  equation  now  evaluated  in  the  side- wall 
boundary  layer  (y  =  0  or  d)  produces: 


dw 

pu  — =  -2Qu^p^  -b2Qup 


While  the  viscous  and  turbulent  inertial  terms  obviously  play  important  roles  in  the  near 
wall  region,  they  are  absent  from  this  formulation.  This  is  done  to  allow  a  simple  linear 
expression  for  the  Coriolis  crossflow  velocity.  The  effects  of  viscosity  and  turbulent 
inertia  are  accounted  for  in  the  use  of  the  l/9th  power  law  streamwise  velocity  profile  and 
in  the  no-slip  condition  imposed  subsequently  on  the  secondary  crossflow. 

For  purposes  of  the  model,  this  relation  is  discretized  to  form  the  following 
expression  for  Aw^„^  (the  added  Coriolis-induced  flow  component  for  a  Ax  step  down  the 
passage). 


Aw^or  =  2Q. 


up 


-1 


Ax 


(Eqn  3.5) 
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Any  region  where  up  <  u„  will  generate  Aw^^  <  0.  This  condition  is  satisfied  in 
the  boundary  layer  on  both  sides  of  the  passage  since  the  velocity  at  the  side  walls  must 
ultimately  equal  zero.  In  this  way,  the  effect  is  symmetric  about  the  passage  centerline  (y/d 
=  0.5).  Flow  symmetry  about  this  plane  is  assumed  for  all  the  discussion  that  follows. 
With  each  subsequent  step,  Aw^^,^  is  accumulated  to  create  a  secondary  crossflow,  w^^  . 

This  secondary  Coriohs-induced  flow  near  the  side-wall  must  satisfy  conservation 
of  mass  and  no-slip  condition  at  the  wall.  Applying  conservation  of  mass  to  a  half-passage 
control  volume  as  shown; 

dx+Ax  dd/2  dd/2 

J  jpWcordxdy-J  JpUx+^dzdy-hJ  Jpu^dzdy  =  0 

Ox  0  0  0  0 


If  the  streamwise  acceleration  is  small,  the  second  two  terms  are  very  nearly  equal  and  can 
be  ignored.  This  leaves  only  the  first  term  in  the  conservation  integral.  Then  if  pw^^^  is 
assumed  to  vary  slowly  with  x,  the  first  term  can  be  approximated  as  a  line  integral  in  y. 
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To  satisfy  secondary  flow  continuity,  a  mean  value  of  pw^^  is  computed  and 
deducted  from  the  w^^^  distribution  computed  in  equation  3.5  .  w^^,*  is  the  adjusted  profile 
which  now  satisfies  continuity. 
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By  observation,  the  profile  is  indicative  of  a  vortex  in  each  half-passage. 

Also,  the  vortex  eye  (y^^J,  where  =  0,  is  not  centered  on  the  half-passage  but  is  near 
the  side  wall.  The  location  of  the  vortex  center  is  dependent  on  the  side-wall  boundary 
layer  thickness. 

With  secondary  flow  continuity  satisfied,  the  massflow  in  the  w^^*  <  0  region  must 
now  satisfy  the  no-slip  wall  condition.  The  model  employs  a  nearly  parabolic  velocity 
profile  here  while  preserving  the  total  massflow  in  the  negative  z  direction.  The  flow 
profile  in  the  region  >  0  is  based  on  two  additional  physical  constraints:  continuity  of 
shear  (dw/dy)  at  y  =  y^^^  and  continuity  of  shear  at  y=d/2  due  to  symmetry.  The  final 
secondary  velocity  profile  is  indicated  below: 


This  Coriolis-induced  secondary  flow  continues  to  grow  with  distance  down  the 
passage.  Its  effect  is  not  limited  to  the  boundary  layer  along  the  side-wall  since  the  vortex 
must  negotiate  the  comers  of  the  passage.  Accordingly,  flow  profiles  which  preserve  the 
massflow  in  the  vortex  are  used  on  both  the  leading  and  trailing  walls,  creating  a  secondary 
flow  picture  in  the  y-z  plane  similar  to  Figure  3.3. 

Since  the  Coriolis  secondary  flow  is  confined  primarily  to  the  boundary  layer 
region  of  the  passage,  the  vortex  moves  low  momentum  boundary  layer  fluid  from  the 
trailing  wall  to  the  side  wall,  and  from  there  to  the  leading  wall.  The  leading  wall  boundary 
layer  then  becomes  the  repository  for  the  momentum  deficit  convected  from  the  other  walls. 
This  contributes  to  an  enhanced  thickening  of  the  boundary  layer  there.  Likewise  the 
vortex  transports  high  momentum  core  fluid  into  the  trailing  wall  boundary  layer.  This 
energizes  the  boundary  layer  here,  reducing  its  thickness.  To  account  for  these  effects,  the 
magnitude  of  convected  momentum  deficit  is  assessed  at  each  step.  The  three  boundary 
layer  displacement  thicknesses  are  then  adjusted  up  or  down  depending  on  the  sign  of  the 
convection  (up  for  the  leading  wall  boundary  layer  as  it  thickens  and  down  for  the  trailing 
wall  boundary  layer  as  it  becomes  thinner).  For  example,  the  additional  momentum  deficit 
for  the  leading  wall  is: 
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The  adjustment  to  the  leading  wall  boundary  layer  displacement  thickness  (6^)  is  then 
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where  the  momentum  defect  convected  from  the  side  wall  has  been  smeared  out  over  the 
entire  half-passage  width.  Similar  formulations  are  employed  for  the  trailing  and  side  wall 
boundary  layers  as  well. 

In  addition  to  this  change  in  displacement  thickness,  as  mentioned  earlier  this 
momentum  defect  addition  or  removal  alters  the  shape  of  the  affected  boundary  layer.  The 
boundary  layer  shape  is  determined  by  the  value  of  the  exponent  “n”  in  the  assumed  power 
law  velocity  profile.  For  the  power  law  profile  shape,  the  displacement  thickness  can  be 
expressed  as  a  function  of  boundary  layer  thickness,  5,  and  the  power  law  exponent,  n. 
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If  a  small  change  in  5^,  were  assumed  to  alter  only  the  profile  shape  (n)  and  not  its  thickness 
(5),  the  resultant  exponent  (n')  would  be: 
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This  exponent  adjustment  was  added  to  the  model  after  reviewing  the  experimental  velocity 
data.  It  was  found  that  using  a  fraction  of  the  A5j  to  produce  a  shape  adjustment  provided 
a  better  match  for  the  trailing  and  leading  wall  boundary  layers.  Since  an  adjustment  in  the 
boundary  layer  shape  imphes  active  mixing  of  the  defect  into  the  boundary  layer,  the 
fraction  of  A5j  which  is  leveraged  to  produce  a  change  in  the  profile  shape  (n  n')  is 
calculated  based  on  a  ratio  of  turbulent  to  inertial  timescales  in  the  flow. 
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This  implementation,  while  only  an  empirical  refinement,  produces  a  physically 
believable  result.  The  profile  exponent  drops  on  the  leading  wall  from  9  at  the  inlet  to 
approximately  5  at  x/d=10  as  the  boundary  layer  thickens  with  rotation.  Conversely,  the 
profile  exponent  on  the  trailing  wall  rises  from  9  to  nearly  14  as  the  boundary  layer  thins 
here.  If  there  is  no  rotation,  no  adjustment  occurs. 

To  insure  that  this  modified  boundaiy  layer  information  (both  exponent  and 
displacement  thickness)  is  carried  over  to  the  next  step  in  the  model  an  “equivalent  x”  is 
calculated  for  each  boundary  layer  at  the  end  of  each  step.  This  “equivalent  x”  is  computed 
using  the  same  boundary  layer  equation  (Eqn.  3.4  solved  for  x)  and  represents  the  x- 
location  corresponding  to  the  new  core  velocity  and  displacement  thickness  after  the  above 
adjustments  have  been  made.  Figures  3.4  and  3.5  show  u(y)  and  w(y)  calculations  for  the 
nominal  condition  of  Re= 10000  and  Rot=0.2  compared  to  Rot=0.0. 


Second  Coriolis  Component 

As  mentioned  previously,  the  Coriolis  acceleration  has  a  second  component  which 
effects  the  streamwise  (x)  momentum  equation.  Following  the  same  methodology  used  for 
the  z-momentum  component,  the  increment  of  streamwise  acceleration  (u  du/dx)  attributed 
to  the  -2Qw  term  is  assessed  as: 

wp 

Au coj  =  -2Q - Ax  (Eqn  3.6) 
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From  the  above  relation,  in  the  region  near  the  side  wall  (where  w<0),  this  will  result  in  an 
acceleration,  whereas  in  the  core  region  (where  w>0)  there  will  be  a  corresponding 
deceleration. 
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These  two  effects  are  incorporated  into  the  model  as  follows.  First,  at  each  step  the 
additional  component  of  Coriohs-induced  streamwise  velocity,  Au^^,  is  computed  using 
equation  3.6.  Based  on  comparisons  with  data  (see  chapter  4)  the  added  velocity  is 
allowed  to  grow  independent  of  the  power  law  streamwise  profile.  The  sum  of  Au^  from 
each  step  is  superposed  on  the  streamwise  velocity  profile  at  the  end  of  each  step,  creating  a 
local  bulge  in  the  side  wall  boundary  layer  shape.  To  match  the  experimental  data,  this  u^^ 
flow  is  diffused  away  from  the  wall  by  a  distance  related  to  the  turbulence  level  in  the  flow; 

^Ydiff 
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The  second  effect  of  the  streamwise  Coriolis  acceleration  impacts  the  passage  core. 
Here  Au^^  is  negative  and  thus  decelerates  the  core  velocity  pushing  massflow  toward  the 
boundary  layers  and  thus  squeezing  the  boundary  layers  back  toward  the  walls.  To 
incorporate  this  in  the  model,  all  of  the  boundary  layer  displacement  thicknesses  are 
reduced  by  an  amount  equal  in  sum  to  the  net  mass  defect  associated  with  Au^,  <  0.  This 
has  the  desired  effect  of  thinning  the  boundary  layers  and  decelerating  the  core. 

The  combined  effect  of  these  two  additions  to  the  model  are  shown  in  Figures  3.6 
and  3.7  which  compare  the  model  predictions  with  and  without  this  component.  The  result 
of  incorporating  the  streamwise  Coriolis  effect  in  this  manner  is  a  thinner  side  wall 
boundary  layer  and  a  reduced  core  acceleration  (Fig  3.6).  As  the  side  wall  boundary  layer 
decreases,  so  does  the  distance  from  the  vortex  eye  (w^^  =  0)  to  the  wall  (Fig  3.7).  This 
squeezing  of  the  vortex  closer  to  the  wall  in  turn  increases  the  local  secondary  flow 
velocities  here.  This  effect  is  not  linear  with  rotational  frequency,  as  can  be  seen  from  Eqn 
3.6.  Au^„  is  proportional  to  Qw  ,  and  since  w  is  proportional  to  Q ,  Au^„  varies  with 
This  dependence  is  discussed  again  in  chapter  4. 


Buoyancy  due  to  Heat  Addition 

To  this  point  the  entire  discussion  has  been  isothermal  (and  constant  density).  To 
account  for  the  effect  of  temperature  gradients  in  the  flow,  we  must  revisit  the  governing 
Navier-Stokes  equations. 
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Here  the  Boussinesq  [7]  approximation  has  been  applied,  allowing  us  to  consider  the 
effects  of  variable  density  only  in  the  buoyancy  source  term.  There  are  likewise  two 
components  of  this  buoyancy  acceleration  term  which  are  evident  from  the  component 
equations. 
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The  additional  term  in  the  z-momentum  equation  produces  a  positive  acceleration  on 
fluid  near  the  leading  wall  (T>T„  in  the  boundary  layer  and  z<0  for  the  leading  wall).  This 
thickens  the  boundary  layer  here.  Likewise  for  the  trailing  wall  (where  z>0),  this 
acceleration  (now  of  negative  sign)  accelerates  hot  trailing  wall  fluid  toward  the  passage 
center.  Since  this  buoyancy-induced  center  seeking  fluid  motion  is  perpendicular  to  the 
passage  wall,  it  is  modeled  as  mass  injection  from  the  wall  into  the  boundary  layer  with 
normal  velocity,  v^ .  Returning  to  the  general  momentum  integral  equation  with  wall 
injection  (Eqn  3.1): 
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Isolating  the  effect  of  v^  on  0  in  this  relation,  v^,  >  0  increases  the  momentum  thickness 
with  X.  As  an  approximation, 

P_U» 


To  incorporate  this  effect  into  the  model,  the  mean  buoyancy-induced  normal 
velocity  is  computed  for  both  the  leading  and  trailing  wall  boundary  layers.  This  mean 
velocity  is  used  as  the  characteristic  normal  velocity  (v^)  to  compute  A0  for  both  boundary 
layers.  The  adjustment  in  0  is  then  assessed  similarly  to  those  adjustments  created  by  the 
Coriolis  effect.  As  expected,  the  net  effect  is  to  thicken  both  the  trailing  and  leading  wall 
boundary  layers  as  the  density  ratio  >  0.  This  in  turn  creates  a  greater  core  acceleration. 

The  second  buoyancy  term  is  in  the  x-momentum  equation  and  actually  opposes  the 
mean  flow  direction.  An  instructive  way  to  visualize  the  effect  of  this  acceleration  is  to 
consider  a  long,  narrow  cooling  passage  rotating  in  the  orthogonal  mode  that  is  capped  at 
both  ends.  Heat  is  added  to  the  contained  fluid  from  the  walls  and  because  of  the 
centrifugal  body  force,  hot  fluid  near  the  walls  is  accelerated  in  toward  the  axis  of  rotation. 
Since  the  fluid  is  trapped  in  the  passage,  in  steady  state  there  can  be  no  mean  flow.  Then 
by  conservation  of  mass,  the  colder  core  fluid  is  accelerated  away  from  the  axis  of  rotation. 
Far  from  the  capped  passage  ends,  the  flowfield  resembles  free  convection  currents  on  four 
walls  toward  the  axis  of  rotation  with  a  bulk  core  motion  in  the  opposing  direction. 

The  model  employs  one  of  two  alternative  strategies  for  merging  this  flowfield  with 
a  bulk  mean  flow.  In  the  first  strategy,  the  buoyant  flow  computed  at  each  time  step  is 
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treated  as  a  momentum  defect  in  the  boundary  layer.  High  local  turbulence  mixes  out  the 
defect  and  increases  the  boundary  layer  momentum  thickness  without  causing  separation  or 
reverse  flow.  This  produces  a  rapid  thickening  of  the  leading  wall  boundary  layer,  since 
most  of  the  hot  boundaiy  layer  fluid  collects  here  due  to  the  action  of  the  Coriolis  vortex. 
Figure  3.8  shows  the  predicted  boundaiy  layer  thickness  using  this  implementation 
compared  to  the  cases  for  Rot=0.0  &  0.2  with  d.r.=0.0.  Evident  is  a  strong  core 
acceleration  reaching  nearly  20%  at  x/d=8. 

The  second  strategy  of  accounting  for  the  buoyant  flow  allows  a  separation  bubble 
to  occur  near  the  leading  wall.  The  bubble’s  spatial  extent  matches  the  mass  defect  of  the 
buoyant  flow  and  essentially  pushes  the  turbulent  boundary  layer  away  from  the  physical 
wall  to  a  point  inside  the  tube.  To  assess  the  impact  of  this  alternate  strategy  where  no 
mixing  occurs,  the  identical  case  was  run  with  a  separation  bubble  on  the  leading  surface. 
The  other  three  walls  are  subject  to  strong  secondary  flows  and  are  considerably  thinner  so 
the  buoyancy  associated  with  each  of  them  is  either  convected  to  the  leading  wall  or  mixed 
into  the  respective  boundaiy  layer  momentum  thickness.  The  separation  bubble  of  stagnant 
fluid  creates  a  strong  core  acceleration  to  nearly  twice  that  of  the  previous  method  as  shown 
in  Figure  3.9.  The  actual  flowfield  measurements  shown  in  the  next  chapter  match  more 
closely  the  case  with  a  separated  leading  wall  boundary  layer.  The  alternate  effects  of 
stagnant,  separated  leading  wall  flow  and  boundary  layer  thickening  with  buoyancy  have 
been  calculated  by  other  researchers  [6,13,45,46,47]. 

To  generate  the  above  model  predictions,  temperature  profile  shapes  must  be 
assumed  in  order  to  compute  the  magnitude  of  the  buoyant  acceleration  terms.  To  this  end, 
a  turbulent  Prandtl  number  of  unity  is  assumed,  constraining  the  thermal  boundary  layer 
thickness  to  match  the  hydrodynamic  boundaiy  layer  thickness.  The  other  essential 
parameter  is  the  wall  temperature(s).  Since  this  model  was  employed  exclusively  for  data 
interpretation,  experimentally  measured  wall  temperature  data  and  surface  heat  flux  values 
are  used  to  initiate  the  model.  As  such,  the  model  can  not  be  used  to  provide  an 
independent  calculation  of  Nu  for  comparison  with  experiment.  Given  the  thermal 
boundary  layer  endpoints  (T=T„  at  y  =  6^  =  8  and  T=T,j,3j,  at  y  =  0),  a  power  law  profile  is 
used  to  estimate  the  boundary  layer  shape.  The  exponent  of  the  profile  is  determined  using 
energy  conservation  for  each  boundary  layer  (accounting  for  energy  convected  into  or  out 
of  the  boundaiy  layer  by  the  secondary  flow  system). 


79 


Final  Appraisal 


In  summary,  a  momentum  integral  model  has  been  developed  to  calculate  the 
flowfield  in  this  rotating,  heated  passage  flow.  The  model  assumes  a  turbulent  flowfield 
with  secondary  flows  creating  mass  and  momentum  exchange  between  otherwise 
independently  developing  boundary  layers.  Numerous  refinements  were  added  to  improve 
comparison  with  the  experimental  data  to  be  presented  in  chapter  4.  As  will  be  seen 
shortly,  despite  the  approximations  employed  the  model  is  able  to  capture  both  qualitative 
and  quantitative  trends  in  the  measured  data  remarkably  well.  However,  the  value  of  the 
model  is  as  an  aid  to  interpreting  the  measured  velocity  field  rather  than  as  a  stand-alone 
predictive  tool.  A  copy  of  the  C  code  used  to  implement  the  model  is  found  in  Appendix 
A. 
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Core  Velocity  /  Inlet  Velocity 


Model  Prediction:  Core  Velocity  vs.  x/d 
Re=:10000,  Rot=0.0,  d.r.=0.0 


0123456789 

X/d 


Figure  3.1:  Model  Prediction  of  Core  Acceleration  with  Distance  from  Inlet 


Figure  3.3:  Model  Schematic  of  Coriolis  Vortex  Crossflows 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Model  Prediction:  Streamwise  Velocity  Profiie  on  Side  Wail 
Re=10000,  Rot=0.0  &  0.2,  d.r.=0.0,  x/d=8 


y/d 


Figure  3.4:  Model  Prediction  of  Rotation  Effect  on  Side  Wall  Boundary  Layer  Profile 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Model  Prediction:  Streamwise  Velocity  Profile  on  Side  Wall 
Effect  of  streamwise  coriolis  acceieration  component. 
Re=10000,  Rot=0.2,  d.r.=0.0,  x/d=8 


y/d 


Figure  3.6:  Model  Prediction  of  Rotation  Effect  on  Side  Wall  Boundary  Layer  Profile 
Effect  of  Streamwise  Component  of  Coriolis  Acceleration 
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Secondary  (w)  Velocity  /  Inlet  Velocity 


Model  Prediction:  Secondary  Veiocity  Profiie  on  Side  Wall 
Effect  of  streamwise  coriolis  acceleration  component. 
Re=10000,  Rot=0.2,  d.r.=0.0,  x/d=8 


y/d 


Figure  3.7:  Model  Prediction  of  Coriolis  Induced  Crossflow  along  Side  Wall 
Effect  of  Streamwise  Component  of  Coriolis  Acceleration 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Model  Prediction:  Streamwise  Velocity  Profile 
from  Leading  to  Trailing  Wall 
Re=10000,  Rot=0.0  &  0.2,  d.r.=0.0  &  0.27,  x/d=8 


z/d 


Figure  3.8:  Model  Prediction  of  Buoyancy  Effect  on  Leading  to  Trailing  Wall 
Streamwise  Velocity  Profile  at  Midpassage  (y/d=0.5) 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Model  Prediction:  Streamwise  Velocity  Profiie  from 
Leading  to  Trailing  Wall.  Effect  of  Buoyancy  Flow 
Re=10000,  Rot=0.2,  d.r.=0.27,  x/d=8 


z/d 


Figure  3.9:  Model  Prediction  of  Buoyancy  Effect  on  Leading  to  Trailing  Wall 
Streamwise  Velocity  Profile  at  Midpassage  (y/d=0.5).  Effect  of  Different 
Methods  for  Treating  Buoyancy  Flow  (100%  Mix  into  Boundary  Layer  vs.  0%  Mix) 
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Chapter  4:  Results  &  Discussion 


Introduction 

The  experimental  data  presented  in  this  chapter  are  in  essentially  two  forms.  First 
there  are  the  PIV  fluid  velocity  measurements  and  second  the  passage  wall  temperature 
maps  (converted  to  local  Nusselt  number).  The  velocity  vector  field  data  is  presented  in 
several  different  ways.  The  orientation  of  the  hght  sheet  allows  access  to  a  plane  normal  to 
the  axis  of  rotation  (x-z  plane,  see  Figure  2.5).  Since  the  strongest  velocity  gradients  are 
expected  in  the  y  and  z  (non-radial)  directions  the  vector  field  from  each  PIV  image  is  first 
averaged  along  the  z  direction  (yielding  u(z)  and  w(z)  for  each  image).  Due  to  observed 
randomness  in  the  vectors,  four  to  six  images  at  each  location  are  combined  to  produce 
ensemble-averaged  u(z)  and  w(z)  distributions  at  a  given  x  and  y  position.  The  light  sheet 
and  camera  are  then  translated  in  the  y  and  x  direction  to  obtain  ensemble  averaged  u(z)  and 
w(z)  distributions  at  various  positions  in  the  flow.  u(z)  and  w(z)  at  the  same  x  but  various 
y  positions  can  be  “stacked-up”  to  provide  a  quasi-3D  look  at  the  flowfield  (assuming  the 
mean  flow  is  steady).  Then  u(y)  and  w(y)  distributions  can  be  generated  at  this  same  x 
location  by  interpolating  between  images  in  the  y  direction. 

Alternatively,  each  image  can  be  reduced  to  a  single  area  averaged  vector  (averaged 
in  both  X  and  z  directions).  When  lateral  (z)  variations  are  minimal  (as  is  the  case  for 
stationary  flow),  these  single  vectors  can  be  combined  to  form  ensemble-averaged  u(y)  and 
w(y)  profiles  for  model  comparison.  Finally,  select  vector  fields  are  used  to  illustrate 
spatial  trends  and  flow  unsteadiness. 

Because  the  model  developed  in  chapter  3  is  extremely  helpful  as  a  tool  to  interpret 
the  velocity  data,  model  calculations  and  experimental  data  are  presented  together  for 
stationary,  rotating,  and  heated,  rotating  cases  in  that  order.  The  stationary  data  show  the 
developing  boundary  layers  and  accelerating  core  flow,  thus  validating  the  fundamental 
model  assumption  made  in  chapter  3.  The  rotating  data  show  the  Coriolis  vortex  growth 
and  spatial  extent.  Data  are  presented  at  2  values  of  Rot  to  demonstrate  the  non-linear 
dependence  of  the  streamwise  Coriolis  velocity,  u^^  from  Eqn.  3.6,  on  Q.  Finally, 
rotating  data  with  heat  show  the  significant  effect  of  buoyancy  on  the  leading  wall. 

Coupling  between  the  Coriolis  vortex  and  the  buoyant  boundary  layer  fluid  create  a  strong 
adverse  effect  on  the  leading  side  heat  transfer.  Correlations  between  measured  fluid 
velocities  and  heat  transfer  are  made  at  the  conclusion  of  this  chapter. 
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stationary  Velocity  Data 


Figure  4. 1  shows  u(y)  data  for  Re= 10000  at  two  x/d  locations.  This  plot  is  maHp 
using  the  “single-vector/image”  method,  so  each  data  point  represents  the  ensemble  average 
of  4-6  images  where  each  image  is  represented  by  a  single  area-averaged  vector.  The 
model  calculations  are  also  indicated  on  the  figure.  Though  only  four  y-positions  are 
available,  both  the  features  of  boundary  layer  development  and  core  acceleration  can  be 
seen.  The  l/9th  power  velocity  profile  used  in  the  model  matches  the  data  satisfactorily. 
The  corresponding  data  for  w(y)  (Figure  4.2)  show  no  significant  transverse  component 
when  the  passage  is  not  rotating.  Figure  4.3  shows  typical  velocity  vector  fields  from  the 
centerline  (y/d=0.5)  and  near  wall  (y/d  =  0.06)  data  at  x/d=7.1.  The  area-average  velocity 
in  both  X  and  z  directions  are  indicated.  The  near  wall  vector  field  shows  a  lower  mpan 
streamwise  velocity,  but  greater  spatial  variations  (turbulence)  than  the  centerline 
Both  of  these  are  evidence  that  the  laser  sheet  at  y/d=0.06  has  penetrated  the  side  wall 
boundary  layer.  This  is  important  because  from  chapter  3,  we  expect  the  Coriohs  vortex  to 
be  confined  to  this  same  region. 


Rotating,  Non-Heated  Velocity  Data 

Data  taken  at  the  same  Reynolds  number  and  x/d  positions  as  the  above  stationary 
data,  but  with  Rot=0.13  are  shown  in  Figures  4.4  and  4.5.  Figure  4.4  shows  the 
measured  w(y)  data  along  with  model  calculations  at  the  same  conditions.  From  the  data,  it 
is  clear  that  a  secondary  vortex  flow  is  present.  The  w  velocity  closest  to  the  wall  is  <0, 
and  a  region  with  w>0  is  evident  between  this  and  the  passage  center.  The  strength  and 
spatial  extent  of  this  vortex  grow  noticeably  with  x/d.  The  peak  negative  w  velocity  has 
increased  by  a  factor  of  3  with  a  doubling  of  distance  from  the  passage  inlet  (x/d=3.8  vs. 

7. 1).  Also,  the  crossover  point  to  positive  w  occurs  near  y/d=0. 13  at  the  downstream 
position  vs.  0.07  for  the  upstream  position.  This  is  the  effect  of  the  Coriolis  acceleration 
component  in  the  z-momentum  equation.  The  model  calculations  also  show  this  vortex 
growth.  The  calculation  nearly  matches  both  the  peak  negative  w  velocity  and  the 
measured  crossover  point  of  the  experimental  data.  The  profiles  selected  for  the  cross-flow 
are  only  approximate  however,  and  in  the  region  where  w>0  the  match  is  less  impressive. 
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The  x/d=3.8  data  has  a  particularly  strong  w>0  region  from  0.1<y/d<0.4  and  exhibits  a 
negative  w  velocity  at  y/d=0.5  which  matches  the  near-wall  level. 

While  this  irregularity  was  not  investigated  thoroughly,  its  origin  can  be  postulated 
using  the  same  arguments  employed  in  the  model  development  (chapter  3).  Since  the 
mechanism  for  Coriolis  secondary  flow  development  is  streamwise  velocity  deficit  (Eqn 
3.5  repeated  here), 
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any  source  of  u<u^  will  result  in  secondary  flow  acceleration.  In  the  previous  chapter,  the 
boundary  layer  was  treated  as  the  exclusive  source  of  u<u„  fluid.  However,  near  the 
passage  inlet  local  velocity  defects  may  exist  due  to  flow  non-uniformities  originating 
upstream  of  the  inlet.  This  is  perhaps  the  mechanism  explaining  the  w<0  at  y/d=0.5  and 
the  strong  w>0  region  in  the  x/d=3.8  data.  Notably,  by  x/d=7  this  secondary  flow  has 
disappeared  in  favor  of  the  traditional  Coriolis  double  vortex.  To  avoid  such  inlet  effects 
and  focus  exclusively  on  the  passage  vortex,  all  subsequent  data  was  taken  at  x/d>7. 

Figure  4.5  shows  u(y)  at  the  same  two  locations.  The  most  notable  feature  here  is 
the  absence  of  a  boundary  layer  compared  to  the  non-rotating  case.  The  axial  velocity  is 
essentially  flat  from  y/d=0.05  to  mid-passage  with  only  a  modest  rise  beyond  y/d=0.2.  In 
addition,  the  core  acceleration  with  x/d  that  was  evident  in  the  stationary  case  is  negligible 
here.  While  the  model  is  not  as  quantitatively  accurate  here,  it  does  aid  in  understanding 
these  curious  results.  The  model  shows  virtually  no  growth  in  the  side  wall  boundary  layer 
thickness  with  x/d  and  only  a  modest  core  acceleration  of  just  less  than  10%  at  x/d=7. 1  vs. 
nearly  13%  for  Rot=0.0.  The  mechanism  responsible  for  this  result  is  the  streamwise  (x- 
momentum)  component  of  the  Coriolis  acceleration.  From  chapter  3  we  recall  that  this 
acceleration  produces  additional  momentum  in  the  near  wall  region  where  w<0  and 
depresses  the  velocity  in  the  core  region  (Eqn  3.6  repeated  here). 

Au  cor  =  -2Q  — -  Ax 

UcoPoo 

The  figure  4.5  data  show  these  two  effects,  though  more  pronounced  than  the 
model  calculation.  As  further  proof  that  u^^^  is  indeed  the  responsible  mechanism,  Figures 
4.6,  4.7,  and  4.8  show  data  for  a  higher  rotation  number  (Rot=0.2  and  Re=8100  at 
x/d=7.9).  Here  the  model  calculations  are  plotted  with  and  without  the  streamwise  Coriolis 
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effect  (both  incorporate  the  z-momentum  component).  Figure  4.6  shows  a  dramatic  rise  in 
u  as  the  wall  is  approached  rather  than  the  flat  profile  witnessed  for  Rot=0.13,  evidence 
that  the  streamwise  Coriolis  acceleration  is  the  culprit.  From  equation  3.6,  it  is  clear  that 
^cor  is  proportional  to  rather  than  Q  since  is  itself  proportional  to  Q.  A  60%  rise  in 
rotational  frequency  (from  Rot=0.13  to  0.2)  actually  produces  a  rise  in  u^^  by  a  factor  of 
2.4.  The  core  depression  is  also  dramatic,  where  the  model-calculated  core  acceleration 
drops  from  15%  to  7%  with  the  addition  of  u  . 

Figure  4.7  shows  the  w(y)  data  and  the  model  calculation  (again  with  and  without 
^cor  incorporated).  The  effect  of  the  Coriolis  streamwise  component  is  considerable.  Since 
^cor  energizes  and  thins  the  side  wall  boundary  layer,  the  Coriolis  vortex  flow  is  reduced  in 
its  spatial  extent  (which  is  a  function  of  the  side  wall  boundary  layer  thickness).  This 
squeezes  a  reduced  secondary  mass  flow  into  a  narrower  region  near  the  wall  and  increases 
the  peak  velocity  in. the  vortex.  The  addition  of  u^^^  to  the  model  drops  the  w=0  position 
from  y/d=0.14  to  0.07  and  lowers  the  minimum  w  from  -0.37  to  -0.47.  Both  of  these 
trends  bring  the  model  calculation  more  in  line  with  the  measured  results.  Finally,  Figure 
4.8  shows  the  u(z)  calculation  vs.  the  exjDerimental  data.  The  boundary  layer  disparity 
between  the  trailing  and  leading  walls  is  apparent.  The  vortex  motion  has  thinned  the 
trailing  wall  boundary  layer  and  thickened  the  leading  wall  boundary  layer.  This  is  the 
convection  of  boundary  layer  fluid  modeled  as  A6j  in  chapter  3.  By  incorporating  the 
boundary  layer  adjustment  in  this  manner,  the  calculation  result  matches  the  experimental 
data  almost  exactly. 

Other  researchers  have  noted  these  same  flow  features  to  varying  degrees.  Berg  et 
al  [4]  measured  the  velocity  field  in  a  long  1/d  rotating  pipe  (Re=40000  and  Rot=0.04)  with 
laser  2-focus  and  found  a  rise  of  10%  in  the  streamwise  velocity  from  passage  centerline  to 
sidewall  and  a  trailing-to-leading  wall  edge  velocity  ratio  of  1. 15.  Tse  and  McGrath’s  [48] 
LDV  data  show  secondary  velocity  magnitudes  up  to  65%  of  the  streamwise  velocity  at 
x/d=7  for  Re=25000  and  Rot=0.24.  The  streamwise  velocity  rise  toward  the  side  walls  is 
also  evident  in  their  data  as  is  the  predicted  second  vortex  pair.  The  PIV  Hgta  presented  in 
this  thesis  show  no  evidence  of  a  second  vortex  pair.  Since  the  second  vortex  pair’s 
location  is  predicted  to  be  near  the  leading  wall,  where  optical  access  is  difficult,  perhaps 
the  vortex  exists  but  is  not  captured  by  this  application  of  PIV. 

Typical  velocity  vector  fields  from  the  centerline  (y/d=0.5)  and  near  wall  (y/d  = 
0.05)  rotating  data  are  shown  in  Figure  4.9  for  this  Re  and  Rot.  The  near  wall  vectors 
show  the  strong  motion  in  the  direction  of  rotation  vs.  the  centerline  vectors  which  are 
leaning  in  the  opposite  direction.  The  y/d=0.93  vectors  also  exhibit  the  steep  dw/dy 
gradient  captured  by  the  finite  laser  sheet  thickness.  Vectors  with  w/Ui„  =  -0.5  lie  side  by 
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side  with  w/Uj^  =  0.0  vectors  in  this  2D  representation  of  a  3D  flowfield.  With  data  always 
plotted  in  ensemble  averages,  it  is  natural  to  form  the  opinion  that  the  observed  secondary 
flow  is  stationary  with  respect  to  the  passage.  To  dispel  this  erroneous  notion,  Figure  4. 10 
shows  three  sequential  images  at  y/d=0.91  (precisely  at  the  vortex  eye).  Each  image  is 
separated  by  one  rotor  revolution  (0. 1  seconds),  or  a  net  fluid  motion  of  30d.  The  laser 
sheet  is  now  located  at  the  point  of  steepest  gradient  in  the  crossflow  shear  layer,  thus  the 
wide  range  of  seemingly  random  vectors  pointed  toward  and  away  from  the  rotation 
direction.  Again  due  to  the  finite  (0.4mm)  sheet  width,  particles  moving  in  both  directions 
are  captured  in  the  same  2-D  image  plane.  The  area-averaged  u  is  roughly  constant  for  all  3 
images,  but  the  averaged  w  varies  from  -0.61  to  -0.13.  This  suggests  that  either  the  vortex 
is  moving  in  the  y  direction  with  time  or  that  the  vortex  strength  is  not  steady.  More 
research  is  necessary  to  fully  document  this  finding  and  determine  its  effect  (if  any)  on  the 
steady  state  wall  Nu. 

Two  additional  figures  exhibit  details  of  the  rotating  flowfield  not  captured  by  the 
integral  model.  Figures  4. 1 1  and  4. 12  show  two  different  viewpoints  of  the  combined 
effects  of  Coriolis  on  the  streamwise  velocity.  The  first  figure  shows  u(z)  at  3  different 
regions  of  y.  To  create  this  plot  the  u(z)  distributions  for  all  images  in  a  specified  region  of 
y  are  averaged  together  to  form  one  distinct  profile.  The  profile  for  0.29<y/d<0.56 
exhibits  the  disproportionately  large  thickness  of  the  leading  wall  boundary  layer  relative  to 
the  trailing  wall.  As  y  moves  toward  the  wall,  the  profile  becomes  flatter  and  finally  rises 
showing  the  strong  acceleration  due  to  the  Coriolis  streamwise  component  (u^,).  The 
effect  of  u^,  is  clearly  strongest  for  z<0  since  the  Coriolis  vortex  is  accelerating  flow  from 
the  trailing  wall  to  the  leading  wall.  The  vortex  strength  is  largest  for  z<0  and  thus  the 
corresponding  streamwise  effect  of  Coriolis  is  more  intense  here  as  well.  Figure  4. 12 
shows  the  same  trend  with  now  u(y)  for  various  regions  of  z.  Here  again  as  z  decreases 
the  core  region  velocity  drops  (due  to  the  large  leading  wall  boundary  layer)  and  the  wall 
region  velocity  rises  (due  to  the  streamwise  Coriolis  acceleration). 


Rotating,  Heated  Velocity  Data 

The  final  experimental  step  was  the  addition  of  surface  heat  flux,  creating  a  non- 
isothermal  flowfield  and  its  associated  buoyancy  acceleration  in  the  rotating  reference 
frame.  While  the  non-heated  data  above  provide  insight  into  the  significance  of  Coriolis 
effects  on  boundary  layer  development  and  secondary  flow,  a  cooling  passage  is  by 
definition  non-isothermal.  Thus  heated,  rotating  velocity  measurements  are  needed  to  fully 
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characterize  the  flowfield.  These  data,  correlated  with  the  associated  heat  transfer 
represent  the  most  important  contribution  of  this  work. 

Figure  4.13  shows  the  most  striking  result  of  heat  addition.  Plotted  are  u(z) 
distributions  from  the  3  cases:  Rot=0.0  &  d.r.=0.0,  Rot=0.2  &  d.r.=0.0,  and  Rot=0.2  & 
d.r.=0.27.  With  heat  addition,  the  trailing  to  leading  wall  disparity  in  streamwise  velocity 
exceeds  a  ratio  of  2.  This  dwarfs  the  same  measure  from  the  non-heated  data,  shown  in 
Figure  4.8  (and  again  in  this  figure)  to  be  only  1.1 .  Since  Rot  is  identical  in  the  two  data 
sets,  the  distorted  streamwise  velocity  profile  for  the  heated  case  is  clearly  the  result  of  hot, 
buoyant  fluid  collecting  on  the  leading  wall.  To  substantiate  this  assertion,  again  we  can 
resort  to  the  integral  model.  As  outlined  in  chapter  3,  the  model  accounts  for  buoyancy- 
driven  flows  with  two  distinct  strategies.  The  first  strategy  allows  for  100%  mixing  of  the 
associated  mass  defect  into  the  turbulent  boundary  layer.  The  second  strategy  assumes  a 
separation  bubble  is  created  on  the  leading  wall  whose  spatial  extent  is  dictated  by  the  net 
mass  defect  in  the  buoyant  flow.  Figure  4.14  compares  calculations  using  these  two 
methods  with  the  PIV  velocity  data.  While  both  methods  show  a  strongly  distorted 
velocity  profile,  only  the  separation  method  comes  close  to  matching  the  measured  level  of 
core  acceleration. 

Figure  4. 15  is  a  surface  map  of  the  PfV  streamwise  velocity  data.  Clearly  a  large 
portion  of  the  test  section  passage  has  fluid  velocities  greater  than  the  normalizing  inlet 
velocity.  A  rough  continuity  check  on  the  measured  surface  map  indicates  that  there  must 
be  a  very  low  streamwise  velocity  region  near  the  leading  wall.  This  and  the  model 
comparison  in  Figure  4.14  combine  to  strongly  suggest  stagnant  or  reverse  flow  near  the 
leading  wall.  Unfortunately,  as  mentioned  earlier,  it  is  difficult  to  optically  image  the  near 
wall  region  on  the  leading  face  of  the  test  section,  but  isolated  vectors  from  a  few  selected 
PfV  images  do  indicate  the  presence  of  stagnant  or  reversed  flow.  Figure  4.16  shows 
actual  vector  fields  where  the  u(z)  gradient  and  sites  of  stagnant  flow  along  the  leading  wall 
are  evident.  Again,  to  show  that  the  position  of  this  buoyant  flow  effect  is  not  completely 
steady.  Figure  4.17  shows  three  sequential  vector  fields  at  y/d=0.67.  The  region  of  low 
velocity  toward  the  leading  side  changes  noticeably  between  images,  suggesting  unsteady 
motion  in  the  z  direction. 

Since  there  is  no  heated  rotating  velocity  data  to  compare  this  new  data  with,  the 
results  of  several  computational  studies  which  give  evidence  of  similar  flow  features  are 
presented  for  comparison.  Dutta  et  al  [13]  predicted  a  heated,  rotating  flowfield  based  on 
the  UTRC  configuration  at  Re=25(X)0,  Rot=0.24,  and  d.r.=0.13  at  x/d=9.  The  code 
results  show  a  streamwise  velocity  of  0.7Ui„  at  z/d=-.35  and  1.2Ui„  at  z/d=-i-0.35.  Also, 
vectors  near  the  side  walls  are  shown  with  secondary  velocity  magnitudes  near  O.lSUj,  and 
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an  estimated  vortex  eye  position  of  y/d=0.1.  For  the  same  conditions,  but  a  lower 
Rot=0.12,  Tekriwal  [46,47]  predicted  nearly  a  factor  of  2  in  streamwise  velocity  from 
trailing  side  to  leading  side  and  shows  cross-stream  velocities  near  0.2  with  a  vortex  eye 
position  of  y/d=0. 15.  At  a  higher  Rot=0.48,  Tekriwal  predicted  reverse  flow  over  a  region 
extending  to  Azyd=0. 15  from  the  leading  wall.  Prakash  and  Zerkle  [45]  also  predicted 
reverse  flow  for  this  same  high  Rot  case.  Finally,  Bonhoff  et  al  [6]  predicted  reverse  flow 
and  a  peak  streamwise  velocity  of  1.8Ui„  near  the  trailing  wall  for  Rot=0.24,  Re=25000, 
and  d.r.=0. 15.  Though  the  three  codes  all  predicted  similar  results  (reverse  flow  and  core 
velocity  skewed  to  trailing  wall),  the  published  data  is  for  three  very  different  passage 
locations:  x/d=8  for  Tekriwal,  x/d=2  for  Prakash  and  Zerkle,  and  x/d=14  for  Bonhoff  et 
al.  The  data  presented  here  are  at  an  x/d=8,  a  lower  Re= 10000,  a  moderate  Rot=0.2,  and  a 
factor  of  two  higher  d.r.=0.27  from  the  above  predictions.  While  a  CFD  prediction 
reproducing  these  exact  flow  conditions  is  not  yet  available,  this  comparison  shows  that  the 
measured  behavior  is  in  the  range  of  that  previously  predicted. 

That  the  Coriolis  vortex  is  still  as  vigorous  in  this  heated  enviromnent  is  evident 
from  Figure  4.18.  In  fact,  the  position  and  strength  of  the  w<0  flow  near  the  wall  appear 
to  be  relatively  unchanged  from  the  d.r.=0.0  case.  Data  is  shown  over  the  entire  test 
section  width  for  this  case,  so  the  flow  symmetry  is  evident.  It  is  this  vortex  which  creates 
the  disproportionate  effect  of  buoyancy  on  the  leading  wall.  The  hot  wall  fluid  from  the 
trailing  and  side  walls  all  collects  on  the  leading  wall  due  to  the  convective  action  of  the 
swirling  vortex.  As  with  the  non-heated  case  (Fig  4.7),  the  model  flow  calculation 
captures  the  magnitude  and  location  of  the  near  wall  part  of  the  vortex  but  falls  short  in  the 
region  where  w>0.  This  indicates  more  rapid  diffusion  and  mixing  in  the  core  region  of 
the  passage  than  incorporated  in  the  model. 

The  other  Coriolis  effect  on  the  streamwise  velocity  is  also  present  in  the  heated 
PIV  data,  though  now  it  competes  directly  with  the  buoyancy  force  on  the  side  walls. 
Figure  4.19  shows  u(y)  profiles  at  various  z  stations.  Near  the  back  side  wall  (y/d=0),  the 
streamwise  Coriolis  component  creates  a  strong  acceleration  at  z/d  =  0.3  which  then 
decreases  with  z.  This  acceleration  is  not  as  evident  on  the  front  side  wall  (y/d=l)  until  z/d 
=  -0.2.  This  is  due  to  the  heating  imbalance  mentioned  in  chapter  2.  Due  to  a 
manufacturing  error,  the  front  side  wall  has  a  higher  heat  flux  than  the  back  side  wall. 
Because  of  this,  buoyancy  has  a  stronger  effect  on  the  front  side  wall  than  the  back  side 
wall,  and  streamwise  velocities  along  this  wall  (y/d=l)  are  lower.  Upon  closer  inspection 
of  the  near  wall  secondary  velocities  (w)  in  Fig  4.18,  the  peak  negative  velocity  on  the 
front  side  wall  (y/d=l)  is  20%  higher  than  on  the  back  side  wall  (y/d=0).  Also,  the  region 
of  positive  w  velocity  extends  further  from  the  front  wall  than  from  the  back  side  wall. 
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Since  the  boundary  layer  to  core  fluid  density  ratio  also  figures  into  the  calculation  of 
equation  3.5,  the  stronger  vortex  on  the  front  side  wall  is  again  evidence  of  the  heat  load 
disparity  between  the  two  side  walls.  This  combination  of  stronger  vortex  and  greater 
buoyancy  sharply  reduce  the  heat  transfer  at  the  front  side  edge  of  the  leading  wall  as  will 
be  seen  shortly.  Figure  4.20  also  shows  the  asymmetry  in  the  velocity  datg  Here  u(z)  is 
plotted  for  various  y  regions.  The  region  of  highest  velocity  is  0.  l<z/d<0.3  and  y/d=0. 1 
(near  the  back  side  wall).  The  region  of  lowest  velocity  is  -.3<z/d<-0.1  and  y/d=0.86 
(near  the  front  side  wall).  More  hot  gas  has  collected  in  the  front  side/leading  wall  comer 
while  conversely  the  back  side/traiUng  wall  comer  is  less  effected  by  buoyancy. 


Nusselt  Prediction  Interlude 


Before  presenting  the  Nusselt  map  data  for  the  above  case,  it  is  instmctive  to 
attempt  a  heat  transfer  prediction  based  on  the  velocity  data  alone.  First,  as  regards  the 
leading  and  trailing  walls,  ignoring  for  the  moment  that  the  data  suggests  separation  on  the 
leading  face  due  to  buoyancy,  we  could  estimate  the  Nusselt  number  for  each  side  based 
solely  on  their  associated  boundary  layer  edge  velocity.  From  Figs  4.13  and  4.20  this  ratio 
appears  to  be  approximately  2.2  (trailing  wall  to  leading  wall  respectively).  Following  the 
analytical  Dittus-Boelter  [11]  correlation  between  Re  and  Nu,  we  would  expect 
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As  will  be  shown  subsequently,  this  is  close  to  the  experimentally  measured  Nu  ratio  at  this 
x/d. 

Turning  now  to  the  front  side  and  back  side  walls,  from  figures  4.19  and  4.20  the 
streamwise  Coriolis  effect  is  more  pronounced  on  the  back  side  wall  as  buoyancy  is  a  more 
significant  factor  on  the  front  side  wall.  So,  one  might  predict  a  slightly  higher  Nu  along 
the  back  side  wall.  However,  the  vortex  strength  is  greater  on  the  front  side  wall  than  on 
the  back  side  wall  (Fig  4.18)  due  to  the  higher  heat  load  and  higher  fluid  temperatures  here. 
Assuming  that  the  stronger  vortex  could  more  than  make  up  for  the  adverse  effect  of 
buoyancy  on  this  wall,  we  might  predict  a  higher  Nu  on  the  front  side  wall  than  on  the  back 
side  wall.  This  latter  result  turns  out  to  be  tme,  suggesting  that  the  vortex  does  play  the 
dominant  role  in  convection  along  the  side  walls. 
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Rotating,  Heated  Nusselt  Measurements 


The  actual  experimentally  measured  quantities  here  are  wall  temperature  (via  the 
infrared  scanner)  and  net  current  through  the  ITO  film  on  the  four  test  section  exterior 
walls.  From  this,  the  temperature  and  heat  flux  distributions  on  the  inside  walls  are 
calculated  as  described  in  chapter  2.  Finally,  Nu  is  computed  as. 


^  _  ^w/(Tw 
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The  plots  of  Nu  shown  here  are  normalized  by  the  Dittus-Boelter  [11]  correlation  for  Nu  in 
a  stationary  tube. 

Nu^  =  0.023  Pr®-^  Re 

This  is  done  to  remove  the  Reynolds  number  dependency  from  the  data.  As  mentioned  in 
chapter  1,  the  experimental  data  in  the  literature  provides  no  consensus  as  to  whether  this  is 
successfully  accomplished  or  not  [16,17,51].  Data  is  presented  for  0.02<Rot<0.29  all  at 
Re«8200  and  d.r.»0.27. 

Figure  4.21  shows  the  Nusselt  ratio  contours  on  the  inside  walls  of  the  test  section 
for  the  same  conditions  used  in  the  heated  PIV  study  just  presented.  The  four  walls  are 
displayed  in  succession  from  left  to  right:  front  side  wall  (y/d=l),  leading  wall  (z/d=-0.5), 
back  side  wall  (y/d=0),  and  trailing  wall  (z/d=+0.5)  (see  Figure  2.5).  A  low  Nu  spot  is 
evident  on  the  leading  wall  at  x/d=8  and  a  corresponding  high  Nu  region  is  located  on  the 
trailing  wall  at  the  same  x/d.  The  Nu  on  the  other  2  sides  appears  to  vary  monotonically 
between  the  leading  and  trailing  wall  peak  values.  Upon  closer  inspection,  the  low  Nu 
region  on  the  leading  wall  is  skewed  to  the  front  side  wall  rather  than  the  back  side  wall  and 
the  lateral  Nu  gradient  on  the  front  side  wall  appears  steeper  than  that  on  the  back  side  wall. 
This  is  evidence  of  the  disparity  in  surface  heat  flux  between  the  two  walls.  The  increased 
heat  addition  on  the  front  wall  produces  more  buoyant  hot  fluid  which  collects  on  the 
leading  wall  creating  the  skewed  Nu  map.  Also,  the  vortex  is  stronger  along  this  wall 
causing  a  steeper  Nu  gradient  than  on  the  back  wall. 

The  magnitude  of  these  two  effects  is  more  clearly  evaluated  with  Figure  4.22 
which  shows  the  side  mean  Nu  as  a  function  of  x.  As  expected  Nn,^  >  NUls  by  nearly  a 
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factor  of  2  at  x/d=8.  This  nearly  matches  the  edge  velocity  prediction  made  earlier.  While 
Nii^  climbs  nearly  linearly  from  inlet  to  exit,  Nuls  is  flat  until  x/d=5  and  then  drops  to  a 
low  at  x/d=8.  As  the  velocity  data  indicated,  the  buoyancy  effect  is  considerable  at  x/d=8, 
creating  a  huge  disparity  between  the  flowfield  on  the  leading  wall  vs.  the  trailing  wall.  If  a 
separation  bubble  on  the  leading  wall  is  the  flow  feature  causing  this  low  Nu  at  x/d=8,  it  is 
logical  to  pick  a  separation  point  based  on  the  Nu  data  alone  at  approximately  x/d=5  (since 
this  is  where  Nuls  begins  to  drop).  Extrapolating  further,  there  may  be  a  flow  reattachment 
at  x/d=9,  as  Nuls  begins  to  rise  here.  x/d=9  is  also  near  the  passage  exit  (l/d=l  1.5),  so  this 
rise  may  be  due  to  a  recirculating  flow  from  the  exit  plenum. 

The  comparison  of  the  front  and  back  wall  Nu  ratios  is  more  complex.  On  the 
average,  Nupj  is  15%  greater  than  Nugg  •  The  greater  heat  load  added  on  the  front  side 
appears  to  have  the  primary  effect  of  strengthening  the  vortex  here,  thus  creating  an 
increased  convective  heat  transfer  and  higher  Nu.  There  are  also  noticeable  oscillations  in 
the  Nu  data.  Nupj  initially  rises  with  Nuj^  but  drops  down  coincident  with  the  drop  off  in 
Nuls  at  x/d=5.  Then,  there  is  a  reprieve  from  x/d=6  to  8  where  Nupg  rises  and  Nugg  drops. 
Finally,  Nupj  drops  to  the  exit  and  Nugg  overtakes  NUpg. 

To  get  some  idea  as  to  what  may  cause  these  apparent  oscillations.  Fig  4.23  shows 
plots  of  Nu(y)  at  various  x  locations  on  the  leading  wall.  Clearly  the  Nuls  profile  flattens 
around  x/d=8,  while  before  and  after  this  point  Nuls  lower  near  the  front  side  edge.  One 
possible  explanation  is  the  collection  of  a  strong  buoyancy-generated  separation  bubble 
near  the  front-side/leading  wall  comer  due  to  the  heating  imbalance.  As  the  bubble  grows 
with  x/d  it  slowly  migrates  laterally  until  it  fills  the  whole  passage  width  (creating  the  flat 
profile  near  x/d=8).  At  this  point,  no  further  migration  is  possible  and  buoyant  fluid 
again  collects  disproportionately  on  the  front  side/leading  wall  edge.  The  result  is  a 
reduced  Nu  here  after  x/d=8.  Han  and  Zhang  [17]  found  that  when  a  wall-to-wall  heating 
imbalance  (uneven  wall  temperatures)  was  imposed  on  a  rotating  coolant  passage,  Nu  was 
higher  on  all  of  the  passage  walls  compared  with  the  constant  wall  temperature  case  (at  the 
same  density  ratio).  They  postulated  that  the  buoyancy  imbalance  destabilizes  the  core 
flow,  creating  lateral  motion  like  that  seen  here.  Another  explanation  could  be  the  presence 
of  a  characteristic  “Helmholtz-like”  fluid  instability  due  to  the  buoyant  rotating  flow,  the 
bulk  flow  moving  side-to-side  in  the  passage  alternating  between  the  front  and  back  side 
walls.  Either  of  these  would  account  for  the  Nu  oscillations  in  Fig  4.22,  but  more  data  is 
needed  to  confirm  their  validity. 

Figures  4.24  and  4.25  show  the  effect  of  rotation  number  on  the  trailing  and 
leading  wall  Nu  ratios.  On  the  trailing  wall,  Nu  increases  everywhere  with  Rot.  For  the 
largest  Rot=0.28  there  are  oscillations  evident  on  the  trailing  wall,  which  at  lower  Rot  are 


99 


isolated  to  the  side  walls.  Though  PFV  data  was  taken  only  for  Rot=0.2,  trends  in  the  Nu 
data  with  Rot  can  be  interpreted  by  extrapolating  from  the  available  velocity  data.  Perhaps 
at  the  highest  rotation,  a  separation  bubble  grows  from  x/d=2  (where  NUls  drops  in  Fig. 
4.25)  to  approximately  x/d=5  when  it  collapses  causing  flow  to  move  back  toward  the 
leading  wall.  This  would  explain  the  flat  Nuj^  from  5<x/d<7  and  the  Nuls  increase  beyond 
x/d=5.  Beyond  x/d=7,  it  may  be  that  the  separation  regains  significance  and  Nu^s  increases 
as  the  remaining  passage  core  fluid  is  once  again  pushed  away  from  the  leading  wall  and  in 
the  direction  of  the  trailing  wall. 

From  Fig  4.25,  the  Nuls  data  do  not  vary  monotonically  with  Rot  at  every  x/d. 

This  highlights  the  competing  roles  of  Coriolis  (with  components  proportional  to  Q  and 
and  buoyancy  (which  varies  with  only).  Looking  at  both  figures  it  is  apparent  that 
NUfs  >  NUls  even  at  the  lowest  Rot=0.02.  Though  at  Rot=0.02  both  Nu^s  and  Nuj-g  fall 
with  x/d  (to  an  average  of  1),  NUfs  is  30%  higher  overall.  Figure  4.26  shows  the  ratio 
Nuj5  /  NUls  for  the  same  four  conditions  and  Figure  4.27  shows  the  average  value  NUj,^  = 
(Nuls+Nui.s)/2.  Here  it  is  again  clear  that  while  Rot=0.02  produces  a  disparity  of  Nu^  > 
Nuls  ,  the  passage  mean  Nu  converges  to  the  stationary  correlation  value.  For  the  other 
three  cases,  the  passage  mean  Nu  and  the  trailing  to  leading  wall  Nu  disparity  grow  with 
Rot.  This  underscores  again  the  complicated  nature  of  this  rotating,  heated  flowfield  where 
buoyancy  and  Coriolis  forces  interact  with  comparable  magnitudes. 

Data  taken  by  Barry  [2]  on  the  same  facility  show  a  nearly  identical  trend  for  Nuj-g  / 
NUls  ,  though  the  Barry  data  is  at  Re=250(X).  The  ratio  rises  to  approximately  2  by  x/d=8 
and  drops  off  toward  the  exit.  The  absolute  Nu  data  are  50%  higher  for  the  Barry  data 
compared  to  the  current  data  and  the  shape  of  the  Nu(x)  curves  is  also  different  with  both 
Nuis  and  Nuls  dropping  from  inlet  to  x/d=6  and  rising  modestly  thereafter.  Guidez  [16] 
also  measured  a  Nu^s  /  Nuls  ratio  of  2  at  x/d=7.4  and  Re=24000,  Rot=0.2,  and  d.r.=0.36. 
Guidez’  data,  however,  did  show  a  drop  in  Nu^s  /  Nuls  of  10%  for  a  50%  rise  in  Re  to 
33000.  Wagner  et  al  [51]  show  a  Nu^g  /  Nuls  ratio  of  nearly  3.5  for  Re=25000,  d.r.=0.22, 
and  Rot=0.2.  Both  the  Guidez  and  Wagner  et  al  data  show  Nujg  rising  to  a  maximum  at 
x/d=8  and  Nu^s  dropping  from  inlet  to  x/d=6  (followed  by  a  rise  thereafter).  Wagner  et  al 
also  show  that  Nu^s  decreases  and  then  increases  with  increasing  Rot,  like  that  shown  in 
Figure  4.25. 
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Closure 


Though  comparisons  of  the  measured  Nusselt  number  in  this  experiment  to  that  of 
other  experiments  is  useful,  it  should  not  obscure  the  more  important  comparisons  made 
earlier.  Because  both  velocity  and  heat  transfer  data  are  available  here,  one  can  now  do 
more  than  postulate  the  existence  of  flow  structures  and  their  effects  on  heat  transfer.  The 
velocity  data  show  stagnant  leading  wall  fluid  and  the  Nu  data  are  also  depressed  on  the 
leading  wall.  The  velocity  data  show  a  thin  trailing  side  boundary  layer  and  the  Nu  data  are 
correspondingly  high  there.  The  velocity  data  show  a  thin  side  wall  boundary  layer  with 
high  crossflow  velocities  and  the  Nu  data  show  no  effect  of  buoyancy  on  the  side  walls. 
The  velocity  data  even  show  a  disparity  in  vortex  strength  from  the  front  to  back  side  walls, 
a  result  of  a  manufacturing  heat  flux  imbalance.  The  Nu  data  also  bear  out  this  imbalance. 
This  is  the  essential  contribution  of  this  thesis,  measured  flow  stmcmres  are  correlated 
directly  with  measured  heat  transfer  to  make  a  prediction  like  Nu,^  /  Nuls  »  2  based  on  the 
measured  edge  velocity  possible. 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data  vs.  Model:  Streamwise  Velocity  Profiles  on  Side  Waii 
Re=10000,  Rot=0.0,  d.r.=0.0,  x/d=3.8  &  7.1 


y/d 


Figure  4.1:  Data  vs.  Model  Prediction  of  Streamwise  Velocity  Profiles  for  Rot=0.0 
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Data  vs.  Model:  Secondary  Velocity  Profiles  on  Side  Wali 
Re=10000,  Rot=0.0,  d.r.=0.0,  x/d=3.8  &  7.1 
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Figure  4.2:  Data  vs.  Model  Prediction  of  Secondary  Velocity  Profiles  for  Rot=0.0 
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Secondary  (w)  Velocity  /  Inlet  Velocity 

•  III 


Data  vs.  Model:  Secondary  Velocity  Profiles  on  Side  Wail 
Re=10000,  Rot=0.13,  d.r.=0.0,  x/d=3.8  &  7.1 


y/d 


Figure  4.4:  Data  vs.  Model  Prediction  of  Secondary  Velocity  Profiles  for  Rot=0.13 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data  vs.  Model:  Streamwise  Velocity  Profiles  on  Side  Wall 
Re=10000,  Rot=0.13,  d.r.=0.0,  x/d=3.8  &  7.1 


y/d 


Figure  4.5:  Data  vs.  Model  Prediction  of  Streamwise  Velocity  Profiles  for  Rot=0.13 
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Data  vs.  Model:  Streamwise  Velocity  Profiles  on  Side  Wall 
Effect  of  Streamwise  Coriolis  Component  in  Model 


Figure  4.6:  Data  vs.  Model  Prediction  of  Streamwise  (y)  Velocity  Profiles  for  Rot=0.2 
Effect  of  Streamwise  Component  of  Coriolis  Acceleration  in  Model 
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Secondary  (w)  Velocity  /  Inlet  Velocity 


Data  vs.  Model:  Secondary  Velocity  Profiles  on  Side  Wall 
Effect  of  Streamwise  Coriolis  Component  in  Model 
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Figure  4.7:  Data  vs.  Model  Prediction  of  Secondary  Velocity  Profiles  for  Rot=0.2 
Effect  of  Streamwise  Component  of  Coriolis  Acceleration  in  Model 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data  vs.  Model:  Streamwise  Velocity  Profile  from 
Leading  to  Trailing  Wall 

Effect  of  Streamwise  Coriolis  Component  in  Model 


Figure  4.8:  Data  vs.  Model  Prediction  of  Streamwise  (z)  Velocity  Profiles  for  Rot=0.2 
Effect  of  Streamwise  Component  of  Coriolis  Acceleration  in  Model 
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Velocity  Vectors  for 
Re=8100 
Rot=0.2 
d.r.=0.0 
at  y/cl=0.93 

mean  u/uin=1.21 

mean  w/uin=-0.57 


Velocity  Vectors  for 
Re=8100 
Rot=0.2 
d.r.=0.0 
at  y/d=0.58 
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mean  w/uin=+0.06 


Figure  4.9:  Sample  Vector  x-z  Plots  for  Re=8100,  Rot=0.2,  and  d.r.=0.0  at  x/d=7.9 
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Data:  Streamwise  Velocity  Profile  from  Leading  to 
Trailing  Wall.  3  y/d  from  centerline  to  near  back  wall 
Re=8100,  Rot=0.2,  d.r.=0.0,  x/d=7.9 
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Figure  4.1 1;  Streamwise  (z)  Velocity  Profile  Data  for  Rot=0.2  at  3  y/d  Locations 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data:  Streamwise  Velocity  Profiles  on  Side  Wall 
4  z/d  from  +0.3  to  -0.3 
Re=8100,  Rot=0.2,  d.r.=0.0,  x/d=7.9 
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Figure  4.12:  Streamwise  (y)  Velocity  Profile  Data  for  Rot=0.2  at  4  z/d  Lxications 


Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data:  Streamwise  Velocity  Profiles  from  Leading  to 
Trailing  Wall  near  Passage  Centerline  (y/d=0.5) 
Re=8100,  Rot=0.2  &  0.0,  d.r.=0.27  &  0.0,  x/d=7.9 
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Figure  4.13:  Streamwise  (z)  Velocity  Profile  Data  for  3  Cases:  Rot=0  &  d.r.=0, 
Rot=0.2  &  d.r.=0,  and  Rot=0.2  &  d.r.=0.27  all  at  x/d=7.9 
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Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data  vs.  Model:  Streamwise  Velocity  Profiles  from 
Leading  to  Trailing  Wall  near  Passage  Centerline  (y/d=0.5) 
2  Model  Strategies  for  Incorporating  Buoyant  Flow 


Figure  4.14:  Data  vs.  Model  Prediction  of  Streamwise  (z)  Velocity  Profiles  for  Rot=0.2  & 
d.r.=0.27.  Effect  of  Different  Model  Strategies  for  Buoyant  Flow  Mixing. 
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Data  vs.  Model:  Secondary  Velocity  Profiles 
Re=8200,  Rot=0.2,  d.r.=0.27,  x/d=7.9 
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Figure  4.18:  Data  vs.  Model  Prediction  of  Secondary  Velocity  Profiles  for  Re=8200. 

Rot=0.2,  and  d.r.=0.27  at  x/d=7.9 
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Data:  Streamwise  Velocity  Profiles  at  various  z/d 

Re=8200,  Rot=0.2,  d.r.=0.27,  x/d=7.9 
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Figure  4.19:  Streamwise  (y)  Velocity  Profile  Data  for  Re=8200,  Rot=0.2,  &  d.r.=0.27 

at  4  z/d  Locations  and  x/d=7.9 


Streamwise  (u)  Velocity  /  Inlet  Velocity 


Data:  Streamwise  Velocity  Profiles  at  various  y/d 
Re=8200,  Rot=0.2,  d.r.=0.27,  x/d=7.9 
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Figure  4.20:  Streamwise  (z)  Velocity  Profile  Data  for  Re=8200,  Rot=0.2,  &  d.r.=0.27 

at  6  y/d  Locations  and  x/d=7.9 
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Mean  Nusselt  Data  for  4  Passage  Walls 
Re=8222,  Rot=0.191,  d.r.=0.27,  &  Bo=0.448 
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Figure  4.22:  Mean  Side  Nu(x)  for  all  4  Walls.  Re=8222,  Rot=0.191,  &  d.r.=0.27 


Nu/Nuinf 


Mean  Nusselt  Data  at  4  x/d  Positions  on  the  Leading  Side 
Note  Change  in  Gradient  from  Front  to  Back  Side  Waii 

Re=8222,  Rot=0.191,  d.r.=0.27,  &  Bo=0.448 

1.3  4 - ^ ^ ^ ^ ^ ^ - f 

< - FRONTCORNERl  I  ^  = 

1.25  . . H; - . I . I . I  - . 1 . 

:  O  x/d=2  j  I  i  i  - 

1.2- .  °  . j . I . ( . . i . ^  ^ 

1.15  . . I  +  x/d=9.5  . 1 .  . . i- 

ii . I  ^ 

iBBSSnanficinCi?^  "  ' ] . f4’'+’ ‘  ”1 . i . - 

:  I  I  i  I  ,+t  i  I  : 

1 .05  -r . I . i . t . . j . i . i . — 

-  i  +  +  Ibackcorne^ - 

...■ . J. . I . i . I . I . 

:  j  :  i  i  i  :  ■ 

^  ^  :  i  •  I  I  i  I 

0.95  --3;;Xx4-- . I . i . I . I . i . 

0.9  - \ - ^XXx)i(xyvvi-vyy)j(XXXX _ I _ 

0.1  0.2  0.3  0.4  0.5  0.6  0.7  0.8  0.9 

Distance  Across  Leading  Side  from  Front  to  Back  Corner 


Re=8222,  Rot=0.191,  d.r.=0.27,  &  Bo=0.448 


FRONT  CORNER 


0 

x/d=2 

□ 

x/d=5 

x 

x/d=8 

+ 

x/d=9.5 

o 


o 


u 


(po 


O 


© 


.Q..2 . 

□  □ 


□ 


0 


o 


o 


■e- 


CD 


..±. 


+ 


+ 


□ 


n 


o 


o 


o 


•0 


-B- 


□ 


■O' 


O 


CD 


+ 


T' 


+  ' 


. 


+ 


+  + 


+ 


+  ‘ 


t  OOx 


X* 


xx 


BACK  CORNER 


X  X  V  )jr;  V  V  X 


x 


xxX 


xX 


x 


X 


X 


.x.x4 


Figure  4.23:  Nu  Distribution  along  Leading  Wall  at  4  x/d  Stations. 
Re=8222,  Rot=0.191,  &  d.r.=0.27. 
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Trailing  Side  to  Leading  Side  Nusselt  Ratio  Data  at  4  Rotations 
Re=8200,  d.r.=0.27,  &  Rot=0.288,  0.191,  0.096,  and  0.019 
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Figure  4.26:  Mean  Side  Trailing  Wall  Nu  to  Leading  Wall  Nu  Ratio 
for  4  Rot:  0.288,  0.191,  0.096,  &  0.019. 
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Chapter  5:  Summary  and  Conclusions 


Summary 

An  experimental  investigation  was  conducted  on  the  internal  flowfield  of  a 
simulated  turbine  blade  cooling  passage.  The  passage  is  of  a  square  cross-section  and  was 
manufactured  from  quartz  for  optical  accessibility.  Velocity  measurements  were  taken 
using  Particle  Image  Velocimetiy  for  both  heated  and  non-heated  cases.  Thin  film  resistive 
heaters  on  all  four  exterior  walls  of  the  passage  allow  heat  to  be  added  to  the  coolant  flow 
without  obstructing  laser  access.  Under  the  same  conditions,  an  infrared  detector  with 
associated  optics  collected  wall  temperature  data  for  use  in  calculating  local  Nusselt 
number.  The  test  section  was  operated  with  radial  outward  flow  and  at  values  of  Reynolds 
number.  Rotation  number,  and  density  ratio  typical  of  applications. 

Ensemble-averaged  velocity  data  for  the  non-heated  case  document  the  evolution  of 
the  Coriolis-induced  double  vortex.  The  vortex  strength  increases  with  Rot  and  x/d,  while 
its  spatial  extent  decreases  with  Rot  and  increases  with  x/d.  The  decrease  in  spatial  extent 
with  Rot  is  due  to  the  streamwise  component  of  the  Coriohs  acceleration  which  creates  a 
considerably  thinned  side  wall  boundary  layer.  The  vortex  has  the  effect  of  increasing  the 
leading  side  boundary  layer  thickness  at  the  expense  of  the  trailing  and  side  wall  boundary 
layers.  Individual  vector  maps  reveal  an  unsteady,  turbulent  flowfield  in  the  cooling 
passage. 

Velocity  data  for  the  heated  case  show  a  strongly  distorted  streamwise  profile 
indicative  of  a  buoyancy  effect  on  the  leading  side.  The  ratio  of  edge  velocity  on  the 
trailing  wall  to  leading  wall  is  approximately  2.2  (vs.  1.1  for  the  non-heated  case).  The 
Coriolis  vortex  is  the  mechanism  for  the  accumulation  of  stagnant  flow  on  the  leading  side 
of  the  passage.  The  vortex  strength  and  position  do  not  change  noticeably  with  heat 
addition.  The  high  temperature  side  wall  and  trailing  wall  boundary  layer  fluid  is  swept  by 
the  vigorous  motion  of  the  Coriolis  crossflow  onto  the  leading  wall.  Heat  transfer  data 
show  a  maximum  factor  of  two  difference  in  the  Nusselt  number  from  trailing  side  to 
leading  side  at  x/d=8.  An  estimate  of  this  heat  transfer  disparity  based  on  the  measured 
boundary  layer  edge  velocity  yields  approximately  the  same  factor  of  two.  A 
manufacturing  anomaly  which  created  a  higher  heat  flux  on  the  front  side  wall  than  the  back 
side  wall  appears  to  be  the  cause  of  a  stronger  vortex  and  higher  heat  transfer  on  the  front 
side  wall.  The  leading  wall  Nu  data  show  a  corresponding  depression  in  Nu  near  the  front 
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side  wall.  This  depression  appears  to  move  across  the  leading  wall  with  x/d,  indicative  of 
bulk  steady  motion  of  the  core  flow. 

A  momentum  integral  model  was  developed  for  data  interpretation.  The  model 
assumes  the  flow  can  be  adequately  characterized  by  an  inviscid  core  flow  surrounded  by 
wall  shear  layers.  Calculated  streamwise  profiles  and  secondary  flows  match  the 
experimental  data  well.  The  model,  the  velocity  data,  and  the  heat  transfer  data  suggest  the 
presence  of  separated  flow  on  the  leading  wall  starting  at  about  five  passage  widths  for  the 
conditions  studied.  Nu  data  suggest  that  the  extent  of  this  separated  region  moves 
upstream  with  higher  Rot. 


Conclusions 

This  thesis  contains  the  first  reported  globail  velocity  measurements  in  a  heated, 
rotating  test  section.  In  addition,  high  resolution  heat  transfer  measurements  taken  with  the 
same  test  section  operating  at  the  same  conditions  allow  the  direct  correlation  of  flow 
phenomena  with  heat  transfer  phenomena. 

The  Coriolis  vortex  has  two  significant  effects  on  the  flowfield.  It  transports  hot, 
low  momentum  wall  fluid  from  the  trailing  wall  to  the  side  wall  and  finally  to  the  leading 
wall  of  the  square  passage.  Second,  it  creates  a  rise  in  streamwise  velocity  in  the  region 
near  the  side  wall  where  the  secondary  flow  is  in  the  direction  of  rotation.  The  first  of 
these  two  effects  has  the  greatest  impact  on  cooling.  The  accumulation  of  low-momentum 
coolant  near  the  leading  wall  effectively  deters  heat  removal  here. 

The  effect  of  buoyancy  is  also  considerable,  reducing  streamwise  velocities  by  a 
factor  of  2  in  regions  where  high  temperature  coolant  is  concentrated  (near  the  leading 
wall). 

A  factor  of  2  difference  in  Nu  from  trailing  to  leading  wall  arises  due  to  the 
combination  of  these  buoyancy  and  Coriolis  effects.  Without  the  Coriolis  vortex,  the 
buoyancy  effect  would  be  evenly  distributed  to  all  4  walls.  Without  the  buoyancy  effect, 
the  Coriolis  vortex  would  only  create  a  10%  shift  in  streamwise  velocity  toward  the  trailing 
wall  (vs.  120%  with  buoyancy).  Since  the  wall  Nu  correlates  directly  with  this  edge 
velocity,  a  Nu  prediction  based  solely  on  the  Coriolis  effect  would  have  a  factor  of  2  error. 
This  underscores  the  need  for  full  simulation  of  both  effects  simultaneously.  Measuring 
each  effect  separately  and  then  assessing  their  mutual  impact  on  heat  transfer  by 
superposition  (as  done  by  Tse  et  al  [48,49])  is  inaccurate. 
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Individual  vector  fields  at  a  fixed  x/d  location  exhibit  flow  unsteadiness  and  suggest 
lateral  motion  (along  the  y  axis)  of  the  Coriolis  vortex  with  time.  The  effect  of  this  motion 
on  steady  state  heat  transfer  measurements  is  undetermined.  Heat  transfer  along  the 
leading  and  trailing  walls  suggest  a  steady  lateral  migration  of  the  bulk  flow  with  x/d.  The 
source  of  this  lateral  motion  is  postulated  to  be  the  growth  and  collapse  of  a  separation 
bubble  on  the  leading  wall.  These  represent  areas  of  further  research. 

A  momentum  integral  model  has  proven  to  be  a  useful  tool  in  flow  interpretation. 
With  several  refinements  incorporated  from  the  experimental  data,  the  model  calculations 
are  accurate  to  within  20%  of  the  observed  flow  features.  This  lends  validity  to  the 
underlying  model  assumption  of  an  inviscid  core  flow  surrounded  by  independent  wall 
shear  layers.  Modeling  the  Coriolis  vortex  as  a  momentum  deficit  transport  mechanism  that 
primarily  exchanges  hot,  low-momentum  boundary  layer  fluid  between  adjacent  walls  was 
found  to  be  a  successful  strategy.  Modeling  the  buoyancy  effect  as  a  separated  region  of 
stagnant  flow  on  the  leading  wall  also  matches  the  experimental  observation  well. 

Finally,  Particle  Image  Velocimetry  (PIV)  has  been  successfully  applied  to  a 
rotating  flowfield.  A  novel  diagnostic  technique  is  employed  to  remove  the  test  section 
rotation  from  the  resultant  double  image.  The  use  of  thin  film  heaters  was  also  validated 
for  providing  a  uniform  surface  heat  flux  without  blocking  optical  access  to  the  flowfield. 


Future  Work 

With  the  velocity  measurement  technique  now  proven,  several  avenues  of  further 
research  are  available.  The  walls  of  the  test  section  used  in  this  study  do  not  have 
turbulence  promoters  (ribs),  however  nothing  should  preclude  taking  the  same  data  set  with 
a  ribbed  passage.  Also,  the  effects  of  flow  direction,  Reynolds  number,  passage  aspect 
ratio,  and  inlet  conditions  can  be  readily  investigated.  By  tailoring  the  optical  system 
appropriately,  the  near  wall  regions  could  be  interrogated  for  reverse  flow  on  the  leading 
wall  and  the  second  set  of  vortices  predicted  by  many  CFD  calculations.  Finally^  a  CFD 
calculation  using  these  exact  experimental  conditions  would  allow  direct  comparison  with  a 
measured  velocity  field.  This  would  contribute  to  code  validation  efforts. 
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APPENDIX  A:  MOMENTUM  INTEGRAL  MODEL  CODE 


/*  */ 

/*  Determine  the  effect  of  the  Coriolus- induced  counter-rotating 

vortices  and  Buoyancy  due  to  Tenperature  gradients  on  the 
flow  in  our  test  section 

jpbcobyV.c  updated  5  Nov  1996  for  air 
jpbcobyS.c  updated  19  Nov  1996  for  secondary 
flow  profiles  which  are  not  parabolic 
jpbcoby9.c  updated  for  new  vsidorig 
jpbcobll.c  many  new  updates  on  13  May  1997 
jpbcobl3.c  change  print  output  for  Matlab 
jpbcob20.c  l/9th  profiles  16  May  1997 
jpbcob21.c  more  updates  16  May  1997 

jpbcob22.c  more  updates  19  May  1997 

jpbcob23.c  add  the  u  coriolis  effect  21  May  1997 
jpbcob24.c  modifies  the  u  coriolis  inplementation  27  May  97 
jpbcob25.c  cleanup  of  jpbcob.24  27  May  97 

jpbcob26.c  reworks  buoyancy  inplementation  27  May  97 
jpbcob27,c  alternate  buoyancy  inplementation  28  May  97 
jpbcob28.c  allow  for  variable  Twall  30  May  97 

jpbcob29.c  calculate  temperature  profiles  based  on 

conservation  of  energy  31  May  97 

jpbcob30.c  apply  Boussinesq  to  energy  conservation 
integrals  by  using  densin  uniformly 
:jpbcob31.c  add  separated  flow  region  on  leading  wall  5  Jun  97 
jpbcob32.c  add  the  w  buoyancy  effect  9  Jun  97*/ 

/*  */ 

tinclude  <stdio.h> 

# include  <math.h> 

# include  <stdlib.h> 


tdefine  Max_j  1501 
tdefine  Max_n  401 

int  J,  j  ,N,n,r,raxit,ans,ansB,  interv,remaind,Beg,End,  thermal  be,  ns  tep,g,  jsep; 

float  Redh,  Rot,  dh,  dens,  vise,  kvisc,  uin,  wrad,  wips,  dt[Max_n]  , 
uls [Max_n] [Max_j ] ,  usid[Max_n] [Max_j ] ,  uts [Max_n] [Max_j ] , 
wls  [Max_n]  [Max_j  ]  ,  vsid  [Max_n]  [Max_j  ]  ,  wts  [Max__n]  [Max_j  ]  , 
wlsmax[Max_n]  ,  vsidiriax[Max_n]  ,  wtsmax[Max_n3  , 
diibuoy  1  s  [  Max_ j  3 ,  dvibuoys  id  [  Max_ j  3 ,  dubuoy t  s  [  Max_ j  3 , 
vsidorig [Max_n3 [Max_j  3 , 

Tls [Max_n3 [Max_j  3 ,  Tsid [Max_n3 [Max_j  3 ,  Tts [Max_n3 [Max_j  3 , 

Twls[Max_n3,  Twsid[Max_n3 ,  Twts[Max_n3,  Twavg,  Tavg,  qest, 
dens Ismni ,  dens t smni , 

denssidm[Max_j 3 ,  denslsm[Max  il,  denstsmfMax  i1.  denssidmni,  denssidmno, 
densts  [Max_n3  [Max_j  3 ,  denssid[Max_n3  [Max_j  3  /  dens  Is  tMax_n3  [Max_j  3 , 
ublthk^ls  [Max_n3 ,  ublthk_sid[Max_n3 ,  ubltlik_ts  [Max_n3 , 
udispthk_ls  [Max_n3  ,  udispthk_sid[Max_n3  ,  udispthk_ts  [Max_n3 , 
imiomthk_ls  [Max_n3 ,  umomt3ik_sid[Max_n] ,  umomthk_ts  [Max_n3 , 

Aint_ls,  Aint_sid,  Aint_ts, 
svundefls,  sumdefts, 

sumdefls_bmix,  sumdefsid_bmix,  sumdefts_bmix, 
jeye, 

intis,  intsid,  intts,  pis,  psw,  pts, 

xeguiv_ls  [ Max_n ] ,  xequiv_s id  [ Max_n 3  ,  xequ iv_t s  [  Max_n  3 , 
jblls,  jblsid,  jblts,  dely,  coeff,  uinfpwr, 
delx,  x[Max__n3,  vorteye  [Max_n3 ,  mdotsw,  dvsiddyeye,  npow, 
uinf  tbl  [Max_n3  ,  npow, 

int_0,  int_l,  int_2,  c4,  ratio,  specheat. 

Tin,  densin.  Pin,  Rgas,  Rin,  densrat,  airplit,  Tuperc,  heat  flux, 
ublthk_.lsmax,  ublthk„sidmax,  ublthk_tsmax, 

jdiff,  ucor [Max_n3  [Max_j 3 ,  ducor [Max„j 3 ,  ducorp [Max_j 3 ,  sumcorshft, 
ucorp[Max_j  3  ,  c6,  gmin,  mdot,  mdotrat,  qwls,  qwsid,  qwts, 

Tavgls [Max_n3 ,  Tavgsid[Max_n3 ,  Tavgts [Max_n3 , 
uavgls  [Max_n3 ,  uavgsid[Max_n3 ,  uavgts  [Max^nj  , 
davgls  [Max_n] ,  davgsid[Max_n] ,  davgts  [Max_n3 , 

nTls,  nTsid,  nTts,  delQlsin[Max_n3 ,  delQtsout [Max_n3 ,  delQcore [Max_n3 , 
delQsuml,  delQsum2,  delQsum3,  mbunmix,  ysep,  percbls, 

dwlsbuoy  [Max_j  3 ,  dwtsbuoy  [Max_„j  1  /  dwlsmn,  dwtsmn,  deflswbuoy,  deftswbuoy; 


FILE  *fp; 
FILE  *fq; 
FILE  *fx; 
FILE  *fy; 
FILE  *fi; 
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int  energcons  (void)  ; 

float  Isturbbl (float  pis) ; 

float  sidturbbl (float  psw) ; 

float  tsturbbl (float  pts) ; 

float  blcoeff (float  blp,  float  uinf ) ; 

main ( ) 

{  fp=f open  ( " all3 1 .  dat " ,  " w+  •' )  ; 

fx=fopen( " outvsx.dat" ,  )  ; 

fy=f  open  ( "  outvsy .  dat  ”,  "w+  ” )  ; 

fi=fopen(”inr20modj  .dat" ,  "r")  ;  /*  Wall  Temp  data  for  21  Mar  97  PIV  data  set  */ 

/*  Enter  the  run  conditions.  */ 

printf ( " \nEnter  Redh:  " ) ; 
scanf ( ”%f " , &Redh) ; 
printf ( " \nEnter  Rot :  " ) ; 
scanf ( "%f " , &Rot) ; 
if(Rot==0.0)  Rot=le-10; 
printf ( "\nEnter  Pin  (Pa) :  " ) ; 
scanf ( ” %f " , &Pin) ; 
printf ( " \nEnter  Tin  (K) :  ” ) ; 
scanf ( "%f " ,&Tin) ; 

/*  printf (" \nEnter  Tu  level  for  bl  growth  adjustment  (e.g.  0.1):  " ) ; 

scanf ( " %f " , &Tuperc ) ;  * / 

Tuperc=0 . 1; 

/*  The  test  section  geometry  in  meters:  dh=hydraulic  diameter 
and  Rin  is  the  inlet  radius  */ 

dh=0,01; 

Rin=0.401; 

/*  J  is  the  #  of  delta  y  intervals  for  discretizing  the  full  channel  */ 

J=1500; 

dely=dh/J; 

/*  Set  the  inlet  gas  conditions  */ 

Rgas=287;  /*  Gas  constant  for  air  */ 

specheat=1005.0;  /*  Specific  Heat  in  J/kgK  at  ref  =  300K  */ 

/*  Compute  viscosity  in  kg/ms  as  a  function  of  Tin  */ 

visc=6 . 0145e-6  +  4 . 1402e-8*Tin; 

/*  Compute  inlet  gas  density  assuming  ideal  gas  behavior.  */ 

densin=Pin/Tin/Rgas ; 
kvi s c=vi sc / dens in ; 

/*  Set  the  channel  inlet  conditions  (step=0)  assuming  plug  flow  */ 

uin=Redh*kvisc  /  dh  ; 
uinf  tbl  [  0  ]  =:uin  ; 

wrad=Ro t  *uin/ dh ; 
wrps=wrad/ (2 . 0*3.1415) ; 


for{ j=0; j<=J; j++) { 
usid[0] [j3=uin; 
uls [0] [ j ] =uin; 
uts [0] [ j ]=uin; 
wts  [0]  [ j ]=0 .0; 
wls  [0]  [  j ]=0 .0; 

Tsid[0] [ j ]=Tin; 

Tls[0] [j]=Tin; 

Tts[0] [j]=Tin; 
denssid[0] [j]=densin; 
densls [0] [ j ] =densin; 
dens ts [03  [ j ] =densin ; 
dwlsbuoy [ j  3  =0 . 0 ; 
dwtsbuoy [ j  3  =0 . 0  ; 

} 

Tavgls [ 0  3  =Tin; 

Tavgs id [ 0  3  =Tin ; 

Tavgts [03  =Tin; 
uavgls  [03  =uin; 
uavgsid [ 0  3  =uin ; 
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uavgts  [0]  =uin; 
davgls [ 0 ] =densin; 
davgs id [ 0 ] =dens in ; 
davgts [ 0 ] =densin; 

for ( j=0; j<=J/2; j++) { 
vsid[0]  [ j  3  =0 . 0; 
vsidorig[0] [j]=0.0; 
ucor [0] [ j] =0 .0; 

} 

vorteye [0] =0.0; 
inbuninix=0 . 0  ; 
ysep=0 . 0; 

/*  The  program  steps  in  the  streamwise  direction  a  distance 

equal  to  delx  which  is  some  fraction  of  the  test  section  dh  */ 

/*  printf {"XnEnter  streamwise  step  distance  in  fraction  of  dh  (0.1):  "); 
scanf { "%f " ,&c4) ;  */ 

c4=0.1; 
delx=c4*dh; 

/*  printf ( "\nEnter  ucor  duf fusion  factor  (0.8):  "); 
scanf ( "%f " ,&c6) ;  */ 

c6=1.0; 

/*  Initialize  x=0.0  at  inlet  &  other  parameters.  The  xequiv  variables 
are  used  to  track  the  "effective"  x  of  each  boundary  layer  which 
corresponds  to  its  coriolis /buoyancy  modified  displacement  thickness.  */ 

dt  [0] =delx/uin; 
x[0]=0.0; 

xequiv_ls [ 0 } =x [ 0  3 ; 
xeguiv_ts [ 0 ] =x [ 0 ] ; 
xequiv_s id [ 0 ] =x [ 0 ] ; 
ubltJik_lsinax=0 . 0  ; 
iablthk_sidmax=0 . 0  ; 
ublthk_tsmax=0 . 0 ; 

printf (" \nEnter  #  of  steps  down  the  passage,  N:  "); 
scanf  {"%d‘'  ,&N)  ; 

/*  Enter  thermal  data  if  desired.  */ 

printf {" \nConsider  Buoyancy?  l=yes  0=no:  "); 

scanf { " %d" , &ansB) ; 
if {ansB==l) { 

printf  ( "\nSelect:  variable  Tw  &  ]aiov7n  qw  (2),  const  qw  (1),  or  const  Tw  (0)  *'); 
printf  {" \nf or  the  wall  thermal  boxindary  condition:  "); 
scanf ( " %d" , ithermalbc) ; 
if  ( thennalbc==0 )  { 

printf {" \nEn ter  density  ratio,  dr= (Tw-Tin) /Tin  :  " ) ; 

scanf ( " %f " , &densrat ) ; 

printf (" \nWall  Temp  =  %.lf  degrees  above  freestream",Tin*densrat); 
printf (" \nEnter  amplitude  of  Twall  variation  ls>sid>ts  :  " ) ; 
scanf { "%f " , iamplit) ; 
for ( n=0 ; n<=N ; n++ ) { 

Twsid[n3  =Tin*densrat+Tin; 

Twls  [n]  =Tin*densrat+Tin+aitplit  ; 

Twts  [n]  =Tin*densrat+Tin-amplit; 

} 

> 

else  if  ( thermal3DC==2 )  { 

printf { " XnReading  in  wall  temperature  vectors ..."); 
for (n=0;n<=100;n++)  fscanf (fi, "%f  %f  %f  %f  %f'\ 

S:int_0 ,  &Twls  [n]  ,  &int_l,  &Twts  [n]  ,&Twsid[n]  )  ; 

/*  for {n=0;n<=100;n++)  printf (" Xn% . 3f  %.3f  %.3f " ,Twls [n] ,Twsid[n] ,Twts [n] ) ;  */ 

int_0=0 . 0; 
int_l=0.0; 
int_2=0 .0; 
for (n=0;n<=N;n++) { 

int_0=int_0+Twls  [n]; 
int_l=int_l+Twsid[n]  ; 
int_2=int_2+Twts  [n]  ; 

} 

printf ("XnSideXtAvg  TwallXtSide  d.r."}; 

printf {"XnLSXt%. If XtXt%.3f" , int_0/ (N+1) , (int_0/ (N+1) -Tin) /Tin) ; 
printf { "XnSWXt%.lfXtXt% .3f " , int_l/ (N+1) , (int_l/ (N+1) -Tin) /Tin) ; 
printf ( " XnLTSX t% . If XtX t% . 3  f " , int_2 / (N+l ) , ( int_2 / (N+1 ) -Tin) /Tin) ; 
densrat=( (int_0+2 . 0*int_l+int_2 ) /4.0/ (N+1) -Tin) /Tin; 
printf (" XnNet  d.r.  =  % .3f " , densrat ) ; 
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printf ("XnEnter  percent  of  LS  buoyant  flow  to  unmix  (0-100):  "); 
scanf  ( '’%f " ,  &percbls)  ; 

qwls=9255.0; 

qwsid=10419 . 0;  /*  average  of  sides  1  &  3  for  J  data  */ 

/*  qwsid=11355 .0;  side  1  for  J  data  */ 

/*  qwsid=9482 . 0;  side  3  for  J  data  */ 

qwts=10769. 0; 

/*  qwls=:10000; 

qwsid=10000 ; 
qwts=:10000;  */ 

) 

else{ 

printf ( " \nEnter  wall  heat  flux  [W/in2]  :  ”); 
scanf { "%f ” , &heatflux) ; 
for (n=0;n<=N;n++) { 

Twls [n] =Tin; 

Twsid[n] =Tin; 

Twts [n] =Tin; 

} 

} 

} 

else{ 

thermalbc=99 ; 
densrat=0 . 0 ; 
for {n=0;n<=N;n++) { 

Twls [n] =Tin; 

Twsid[n]  =Tin; 

Twts  [n]  =Tin; 

} 

} 


***********************************************************************  -tc ! 

/*  **’^*****nnnnnnnnn  START  Streamwise  'n'  Loop  imnnnnnnnn** *********  */ 

/*  Now  start  the  'n'  loop  that  steps  delx  down  the  channel,  computing 
the  cross- flows  and  the  changes  in  the  streamwise  profile  with  x.  */ 

/*  Set  the  initial  values  at  n=l  */ 

uinftbl [1] =uin; 
x[l]=x[0]+delx; 

xequiv_ls [ 1 ] =xequiv_ls [ 0 ] +delx ; 
xequiv_sid  E 1 ] =xequiv_sid [ 0  3  +delx ; 
xequiv_ts [ 1 ] =xequiv_ts [ 0 ] +delx ; 
dt [1] =delx/uinftbl [1] ; 

/*  Set  the  initial  values  for  the  profile  power  exponents  */ 

pls=9 .0; 
psw=9 . 0 ; 
pts=9 . 0; 

for  (n=l;n<=N;n++)  { 

printf { " \nn=  %d  " , n) ; 

/ *  tttttttttttttttt  boundary  layer  relations  TTTTTTTTTTTTTTTTT  * / 

/*  Calculate  the  boundary  layer  momentiim  thickness  using  a  power  law  profile. 

To  account  for  acceleration,  the  integral  is  nimerically  calculated  by  summing. 
Then  compute  the  displacement  and  boundary  layer  thicknesses .  *  / 

coef  f  =blcoef  f  (pis ,  uinf  tbl  [n]  )  ; 

uinfpwr=(  (pls+3 .0)  *  (3 . 0*pls+2)  -2 . 0*pls)  /  (pis*  (pls+1. 0)  )  ; 
int_0=0 .0; 

f or  ( j  =1 7  j<=n;  j++)  int_0=int_0+pow(0 . 5*  (uinf tbl  [  j  3  +uinf  tbl  [  j  -1] )  , uinfpwr)  * 

(xequiv_ls  [  j  ]  -xequiv_ls  [  j  -1]  )  ; 
umomthk_ls [n] =coef f*pow(int_0, (pls+1. 0) / (pls+3 . 0) ) ; 
xiblthk_ls  [n]  =umomthk_ls  [n]  /  (pis  /  (pls+1 . 0)  -pis/  (pls+2 . 0)  )  ; 
udispthk_ls  [n]  =ublthk_ls  [n]  *  (1 . 0-pls/  (pls+1 , 0) )  ; 

/*  Likewise  for  the  trailing  side...  */ 

coef f =blcoef f (pts , uinf tbl [n] ) ; 

uinfpwr=( (pts+3 . 0) * (3 .0*pts+2) -2 .0*pts) / (pts* (pts+1 . 0) ) ; 
int_0=0 .0; 

for(j=l;  j<=n;  j++)  int_0=int_.0+pow(0 . 5*  (uinf  tbl  [  j  ] +uinf tbl  [j-1]  )  , uinfpwr)  * 

(xequiv_ts [ j ] -xequiv_ts [ j-1] ) ; 
umomthk_ts  [n]  =coef  f*pow(int_0,  (pts+1 .0)  /  {pts+3 .0) )  ; 
ublthk_ts  [n]  =umomthk_ts  [n]  /  (pts  /  (pts+1 , 0)  -pts  /  {pts+2 .0)  )  ; 
udispthk_ts  [n]  =ublthk_ts  [n]  *  (1 . 0-pts/  (pts+1 , 0)  )  ; 
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/*  And  for  the  side  wall...  */ 

coeff=blcoeff {psw,uinftbl [n] ) ; 

uinfpwr=(  (psw+3 .0)  *  (3 . 0*psw+2 )  -2 . 0*psw)  /  (psw*  (psw+1, 0) )  ; 
int_0=0 .0; 

for { j=l; j<=n; j++)  int_0=int_0+pow(0 . 5* (uinftbl [ j ] +uinf tbl [j-1] ) ,uinfpwr) * 

( xequiv_s id [ j ] -xequiv_s id[j-l]); 
vmiointhk_sid[n]  =coeff*pow(int_0,  {psw+1 . 0)  /  (psw+3 . 0) )  ; 

\iblthk_sid[n]  =imomthk_sid[n]  /  (psw/  (psw+1 . 0)  -psw/  {psw+2 . 0)  )  ; 
udispthk_sid[n]  =ublthk_sid[n]  *  (1 .0-psw/  (psw+1 . 0) )  ; 

/*  With  the  boundary  layer  thickness  estimates,  I  can  use  the  result  of  the 

momentum  integral  equation  to  determine  the  actual  profile  shape  for  u  and  T.  * 

printf  ( " \tdlQlsin  dlQcore  dlQtsout\tTavgls\tTavgsid\tTavgts\n'‘ )  ; 

/*  For  thermalbc=:2 /  I  need  an  estimate  of  Q  convected  by  Coriolis  vortex. 

To  compute  the  integrals,  use  Tsid,  vsid,  and  vorteye  from  last  step.  */ 

int_0=0 .0; 

for{  j=l;j<=  (vorteye [n-1] /dely)  ;j++)  int_0=int_0+dely* 

0.5*(Tsid[n-l] [ j ] +Tsid[n-1] [ j-1] ) *0 . 5*fabs {vsid[n-l] [ j ] +vsid[n-l] [j-1] ) 
if(n==l)  denssidmni=densin; 
else{ 

denssidmni=0 . 0 ; 

for  (j=:l;  j<=  (vorteye  [n-1] /dely)  ;  j++)  denssidmni=denssidmni 
+0 .5* (denssid[n-l] [ j ] +denssid[n-l] [j])*dely; 
denssidmni=denssidmni/ ( j*dely) ; 

} 

delQlsin [n] =specheat*densin*delx*int_0 ; 
int_0=0 .0; 

for (j  =  (vorteye [n-1] /dely)  ;  j<={0.5*dh/dely)  ;j++)  int_0=int_0+ 

0 .5*fabs (vsid[n-l] [ j ] +vsid[n-l] [ j-1] ) *dely; 
delQcore  [n]  =specheat*densin’*'deix*Tin*int_0; 

Isturbbl (pis)  ; 

/*  Likewise  for  the  trailing  side. . .  */ 

int„0=0 .0; 

for  { j=l;  j<={iiblthk_ts  [n-1]  /dely)  ;  j++)  int_0=int_0+dely* 

0.5*(Tts[n-l]  [j]+Tts[n-l] [ j-1] ) *0 .5*fabs (wts [n-1] [j]+wts[n-l]  [j-1]); 
delQtsout [n] =specheat*densin*delx*int_0 ; 

printf ( "\t%.3g\t%.3g\t%.3g" , delQlsin [n] , delQcore [n] , delQtsout [n] ) ; 
tsturbbl (pts)  ; 

/*  DDDDDDDDDDDDDDD  DIFFUSE  STREAMWISE  CORIOLIS  DDDDDDDDDDDDDDDDDDDDDDD  */ 

/*  With  the  usw  profile  for  this  step,  add  the  streamwise  coriolis  flow 
left  over  from  last  step.  If  n=l  there  is  nothing  to  carry  forward. 

Before  adding  the  two  profiles  the  coriolis  flow  is  diffused  away  from 
the  wall  over  the  timestep.  */ 

for(j=0; j<=J/2; j++)  ucor[n] [j]=0.0; 

if (n>l) { 

jdif  f=c6*Tuperc*uinf tbl  [n]  *dt  [n]  /dely; 
for (j=0; j<=J/2; j++) { 

if {ucor[n-l] [j]>0.0) { 

if ( ( j+jdiff )>J/2)  gmin=J/2-jdif f ; 
else  gmin=  j  ; 

for {g=gmin;g<= (gmin+jdif f ) ;g++) 

ucor[n] [g]=ucor[n] [g] +ucor [n-1] [j] / ( jdif f +1.0) ; 

> 

} 

} 

int_0=0.0; 

for ( j=0; j<=J/2 ; j++)  int_0=int_0+ucor [n-1] [j]; 

/*  printf ( "\tint0=%g" , int_0) ;  */ 

/*  Finally  compute  the  profile  for  the  side  wall ...  then  add  ucor  to  it.  */ 
sidturbbl (psw) ; 


for( j-0; j<=J/2; j++)  usid[n] [j]=usid[n] [j]+ucor[nl [j] ; 
printf (”\t%.2f\t%.2f\t%.2f  " ,Tavgls[n] ,Tavgsid[n] ,Tavgts [n] ) ; 
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printf {"\tnTls=%.3f  nTsid=%.3f  nTts=%-3f” ,nTls,nTsid,nTts) ; 

/*  If  any  of  the  b.l.s  are  shrinking,  I  want  to  be  sure  and  integrate 
out  to  the  maximum  bl  so  as  not  to  lose  any  prior  information.  */ 

if  {ublthk_ls  [n]  >ublthk_lsmax)  ublthk_lsmax=ublthk_ls  [n]  ; 
if  {ublthk_sid[n]  >ublthk_sidmax)  ublthk_sidmax=ublthk_sid[n]  ; 
if  (ublthk_ts  [n]  >ublthk_tsmax)  ublthk_tsmax=tiblthk_ts  [n]  ; 

/*  CCCCCCCCCCC  BEGIN  V  CORIOLIS  COMPONENT  COMPUTATION  CCCCCCCCCCCCCCC  */ 

/*  Compute  the  mid-step  density  for  later  use  */ 


for (j=0; j<=J; j++) { 

denssidm[3]=0.5*{denssid[n] [ j ] +denssid[n-l] [j]); 
denslsm[j]=0.5* (densls[n] [ j ] +densls [n-1] [j]); 
denstsm[j]=0.5*{densts[n] [ j ] +densts [n-1] [j] ) ; 


/*  Now  with  the  streamwise  velocity  profiles,  I  can  compute  the  additional 
coriolis-induced  transverse  velocity  over  this  streamwise  step.  Since 
usid  is  available  only  at  the  "n"  nodes,  use  an  average  of  the  n  and 
n-1  profiles.  Since  I  assume  passage  symmetry,  only  perform  Coriolis 
adjustment  for  J/2  steps.  This  produces  vsid<0.  */ 

for(j=0; j<=J/2; j++)  vsid[n] [ j] =vsidorig[n-l]  tj]+2.0*wrad 

*(0.5*(usid[n] [ j ] +usid[n-l] [ j 3 ) *denssidm[ j ] 

/  (0.5*  (uinftbl  [n]+uinftbl  [n-1]  )  *densin)  -1)  *delx; 

/*  This  induced  transverse  velocity  profile  must  satisfy  continuity. 

Compute  the  line  integral  of  denssid*vsid  and  find  the  mean  value. 

Since  vsid  is  actually  between  "n"  and  "n-l”,  use  a  mid-step  density 
profile  as  well.  */ 

int_0=0 . 0 ; 

for{j=l; j<=J/2; j++)  int_0=int_0+0 . 5* (vsid[n] [j]+vsid[n] [j-1]) 

*0.5* {denssidml j ]+denssidm[ j-1] ) *dely; 

int_0=int_0/  (0 . 5*dh)  ; 

/*  int_0  is  the  mean  line  mass flow  quantity.  Subtract  it  from  vsid  to 
create  a  profile  which  now  satisfies  continuity.  Retain  this  profile 
as  vsidorig  to  avoid  kinks  in  the  profile  at  subsequent  steps.  */ 

for ( j=0; j<=J/2; j++) { 

vsid[n]  [j]  =  (vsid[n]  [  j 3  *denssidm[ j ] -int_0) /denssidm[  j  ]  ; 
vsidorig [n]  [j]=vsid[n]  [j]; 

} 

/*  The  next  step  is  to  make  the  velocity  at  the  wall  go  to  zero. 

Before  reshaping  the  near  wall  profile,  find  the  crossover  point 
(or  vortex  "eye")  and  compute  the  mass flow  for  y<yeye,  */ 

mdotsw=0 . 0 ; 

for ( j=l; j<=J/2; j++) { 

if (vsid[n] tj3>=0.0)  break; 

mdotsw=mdotsw+0 .5*fabs  (vsid[n]  [j]+vsid[n]  [j-1]) 

^  *0,5* {denssidm[ j ]+denssidm[ j-1] ) *dely; 

jeye=j; 

vorteye [n] = j  eye*dely ; 

/*  Now  determine  the  shear  (slope)  at  yeye  using  center  difference.  */ 

j=jeye; 

dvsiddyeye=(vsid[n]  [j+1]  -  vsid[n]  [  j-1]  )  /  (2*dely)  ; 

/*  To  proceed  in  reshaping  the  vsid  profile.  I’ll  need  a  mean  density 
for  both  regions  0<y<yeye  and  yeye<y<dh/2  .  */ 

denssidmni=0 . 0 ; 

for ( j=l; j<=jeye; j++)  denssidmni=denssidmni+denssidm[ j ] ; 

dens s idmni =dens  s idmni / j  eye ; 

denssidmno=0 . 0 ; 

for { j=jeye+l; j<=j/2 ; j++)  denssidmno=denssidmno+denssidm[ j ] ; 

denssidmno=denssidmno/ ( J/2- j eye) ; 

/*  Reshape  the  profile  for  y<yeye  into  a  form 

vsid  =  constant  *  (y/yeye)^m  *  (1- (y/yeye) '^n) 

The  constant  is  set  by  matching  the  slope  at  the  vortex  eye.  This 
gives  constant  =  - (dv/dy@y=yeye)  *  yeye  /  n  . 
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The  power  'm'  is  set  to  0.5  which  gives  a  full  profile. 

Finally,  'n'  is  set  by  preserving  the  mass  flow  in  the  crossflow.  */ 

/*  Now  determine  the  exponent  "n"  which  will  conserve  mdotsw  */ 

npow=  ( 2 . 0/3 . 0 )  *denssidmni*pow  (vorteye  [n] ,  2 . 0 )  *  dvs  i  ddy  eye /mdotsw- 1 . 5  ; 

/*  If  npow<0  this  profile  explodes  at  y=0.  So  in  this  case,  set  npow  to 
a  minimum  value  of  0.01  and  coitpute  the  slope  at  yeye  that  corresponds 
to  this  npow  AND  conserves  mass  flow.  */ 

if (npow<=0 . 0) { 
npow=l . 0 ; 

dvsidc^eye=l .  5*  (npow+1 . 5)  *mdotsw/denssidinni/pow (vorteye  [n]  ,2.0) ; 

vsidmax[n]  =0.0; 

for ( j=0; j<=jeye; j++) { 

vsid[n]  [  j  ]  =-vorteye  [n]  *dvsiddyeye*pow{  ( j /  jeye)  ,0.5)* 

( 1-pow  (  ( j  /  jeye )  ,  npow) )  /npow; 
if  (vsid[n]  [  j  ]  <vsidmax[n] )  vsidmax[n]  =vsid[n]  [j]  ; 


/*  For  the  region  yeye<y<dh/2  reshape  vs id  into  a  profile  or  the  form: 

vsid  =  constant  *  (y-dh/2/yeye-dh/2)  "m  *  (1- (y-dh/2/yeye'-dh/2 ) ) 

The  constant  is  set  by  matching  the  slope  at  the  vortex  eye.  This 
gives  constant  =  (dh/2-yeye)  *  (dv/dy@y=yeye)  . 

The  power  'm'  is  set  by  preserving  the  mass  flow  in  the  crossflow.  */ 

mpow=-1.5+pow(0.25+denssidmno*dvsiddyeye*pow(  (dh/2 . 0 -vorteye  [n] )  ,2.0)/ 
mdotsw, 0.5); 

for ( j=jeye; j<=j /2 ; j++)  vsid[n] [ j ] = (dh/2 . 0-vorteye [n] ) *dvsiddyeye* 
pow(  { j-J/2 . 0)  /  ( jeye-J/2 .0)  ,rtpow)  * 
(1.0-(j-J/2.0)/(jeye-J/2.0) ) ; 

/*  CCCCCCCCCCCCCC  END  V  CORIOLIS  COMPONENT  COMPUTATION  CCCCCCCCCCCCCCC  */ 

/*  CCCCCCCCCCCCCC  BEGIN  U  CORIOLIS  COMPONENT  COMPUTATION  CCCCCCCCCCCCCCC  */ 

/*  There  is  a  conponent  of  the  Coriolis  acceleration  which  acts  on  the 
streamwise  momentum  equation.  The  contribution  of  this  acceleration 
for  this  time  step  is  conputed.  */ 

/*  for{j=0; j<=J/2; j++)  ducor [ j ] =0 . 0;  */ 

for ( j  =0 ; j<=J/2 ; j++)  ducor [j ] =-2 . 0*wrad*delx*vsid[n]  [ j ] *denssidm[ j ] 

/ (0 . 5* (uinftbl [n] +uinftbl [n-l] ) *densin) ; 

/*  In  the  region  where  ducor>0,  diffuse  it  for  1/2  a  timestep.  */ 

for ( j  =0 ; j<= J/2 ; j  ++ )  ducorp  [ j ] =0 . 0 ; 
jdif f=c6*Tuperc*uinf tbl [n] *dt [n] *0 . 5/dely; 
for ( j=0; j<=J/2 ; j++) { 
if (ducor [ji>0.0) { 

if  ( {j+jdiff)>J/2)  gmin=J/2-jdiff; 
else  gmin=j ; 

for {g=gmin;g<= ( gmin+ jdif f) ;g++) 

ducorp[g]=ducorp[g]+ducor[j]/ (jdiff+1.0) ; 

} 

/*  Now  add  this  step's  ducorp  to  the  diffused  ucor  from  last  step.  */ 

for ( j=0 ; j<=J/2 ; j++)  ucor[n] [ j] =ucor[n] [ j ] +ducorp [ j ] ; 

/*  In  the  region  where  ducor<0,  this  core  deceleration  will  push 

core  fluid  toward  the  walls,  thus  thinning  the  boundary  layers.  Model 
this  as  a  displacement  thickness  reduction  for  the  boundary  layers  — 
which  will  in  turn  reduce  uinf .  (sumcorshft>0)  */ 

sumcorshf t=0 . 0 ; 
for ( j=l; j<=J/2; j++)  { 
if (ducor [j ] <0) { 

sumcorshf t=sumcorshft+dely*  0.5*  f abs (ducor [ j ] +ducor ( j -1 ] ) 

*0 . 5* (denssidm[ j ] +denssidm[ j-1] ) 

/ (0 . 5* (uinftbl [n] +uinftbl [n-l] ) *densin) ; 

} 

/*  CCCCCCCCCCCCCC  END  U  CORIOLIS  COMPONENT  COMPUTATION  CCCCCCCCCCCCCCC  */ 

/*  BBBBBBBBBBBBBB  BEGIN  U  BUOYANCY  COMPONENT  COMPUTATION  BBBBBBBBBBBBBBB  */ 
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if  (aiisB==l)  { 

/*  Compute  the  additional  buoyancy  flow  for  this  step. 
for( j=0; j<=J; j++) { 

dubuoyls [ j ] = {Rin+x[n] ~delx/2) *wrad*wrad* (denslsm[ j ] /dens in- 1 .0) 
*delx/ (0.5* (uinftbl [n]+uinftbl [n-1] ) ) ; 
dubuoysidE  j  ]  =  (Rin+x[n]  -delx/2)  *wrad*wrad*  (denssidm[  j  ]  /densin-1 . 0) 
*delx/  (0.5*{uinftbl[n]+uinftblEn-l] ) )  ; 
dubuoyts  [  j  ]  =  (Rin+x[n]  -delx/2)  *wrad*wrad*  {denstsm[  j  ]  /densin-1 .0) 
*delx/  (0 .5*  (uinftbl  [n]  +uinftbl  [n-1]  ) )  ; 


/*  Find  maximijin  boundary  layer  end  nodes  before  performing  integration.  */ 

jblls=\iblthk_lsmax/dely  ; 
j  b  1  s  id=ubl  thk_s  idmax  /de  ly  ; 
jblts=\ablthk_tsiTiax/dely  ; 

/*  This  additional  buoyant  flow  must  satisfy  continuity  for  this  time  step. 
Use  a  trapezoidal  rule  to  perform  the  numerical  integration  and  find 
the  average  of  the  dubuoy*dens  flow  over  the  cross-section.  */ 

int_0=0 . 0 ; 

for( j=l; j<=jblls; j++)  int_0=int_0+ (0 . 5*dh-ublthk_sidinax* j / jblls) 
*0 . 5  * { dubuoyls [ j ] +dubuoyls [ j -1 ] ) 

*  0 . 5  * ( dens Ism [ j ] +dens lsm[j-l])*dely; 
for (j=l; j<=jblsid; j++)  int_0=int_0+  (dh-ublthk_lsinax*j/jblsid- 
ublthk_tsmax*  j  /  jblsid) 

*0.5* (dubuoysid [ j ) +dubuoysid [ j -1 ] ) 
*0.5*(denssidm[j]+denssidm[j-l] ) *dely; 
for (j=l; j<=jblts; j++)  int_0=int_0+ (0 . 5*dh-ublthk;_sidmax* j / jblts) 
*0.5* (dubuoyts [ j ] +dubuoyts [ j -1 ] ) 

*0-5* (denstsm[ j ] +denstsm[ j-1] ) *dely; 

int_0=int_0/  (0 .5*dh*dh)  ; 

/*  Siabtract  this  offset  from  the  buoyancy  velocity  profiles.  */ 


for { j=0; j<=J; j++) { 

diabuoyls  [  j  ]  =  (dubuoyls  [  j  ]  *denslsm [  j  ]  -int_0 )  /denslsm [j]; 
dubuoysidEj  ]  =  (dubuoysidE  j  ]  *denssidm[j]-int_0)  /denssidm[j]  ; 
dubuoyts  [  j  ]  =  (dubuoyts  E  j  ]  *denstsm[  j  ]  -int_0)  /denstsmE  j  ]  ; 


/*  Compute  the  momentum  deficit  of  each  diibuoy<0  region  to  be  added  later 
to  the  displacement  thickness.  */ 

sumdef ls_bmix=0 . 0 ; 
for  ( j=l;  j<=:J;  j++)  { 

if (dubuoyls [ j ] <0) { 

sumdef ls_bmix=sumdef ls_bmix+dely*0 . 5*f abs  (dubuoyls  [j  ]  +dubuoyls  [ j -1] ) 

*0 . 5* (denslsm [j ] +denslsm[ j-1] ) 

/ (0 . 5* (uinftbl [n] +uinftbl [n-l] ) *densin) ; 

} 

} 

/*  Retain  some  of  this  buoyant  flow  on  the  leading  wall  to  create  a  separation 
bubble  if  desired.  */ 

mbunmix=mbunmix+  (percbls/100 . 0 )  *sumdef  ls_bmix 
*0.5*  (uinftbl [n]+uinftbl [n-l] )  *densin; 
sximdef ls_bmix=  (1 . 0-percbls/100 .0)  *sumdefls_bmix; 

siamdef  sid_bmix=0 . 0  ; 
for ( j=l; j<=J/2; j++) { 

if (dubuoysidE j ] <0) { 

sir:ndefsid_bmix=sumdefsid_bmix+dely*0 . 5*fabs  (dubuoysidE  j  J  +dubuoysid[  j-1] ) 
*0 . 5* (denssidmE j ] +denssidm[ j -1] ) 

/ (0.5*(uinftblEn]+uinftbl[n-l] )* dens in) ; 

} 

siimdef  ts_bmix=0 . 0  ; 
for( j=l; j<=J; j++) { 

if (dubuoyts [j]<0) { 

sumdef ts_bmix=sumdefts_bmix+dely*0 . 5*fabs (dubuoyts  E  j ] +dubuoyts  E  j -1 ] ) 

*0 . 5* (denstsmE j ] +denstsmE j-1] ) 

/ (0 . 5* (uinftbl [n] +uinf tbl [n-l] ) *densin) ; 

} 

} 
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/*  In  the  region  where  dnbuoy>0,  this  core  acceleration  will  pull 

core  fluid  away  from  the  walls,  thinning  the  boundary  layers.  Model 
this  as  a  displacement  thickness  addition  for  the  boundary  layers  — 
which  will  in  turn  increase  uinf.  Since  the  flow  satisfies  continuity 
just  double  the  corresponding  sumdef_bmix.  */ 

sumdefls_bmix=2 . 0*sumdefts_binix; 
sumdef  sid_bmix=2 . 0*sumdefsid_bmix; 

STxmdef  ts_bmix=2 . 0*sumdefts_bmix; 

} 

else{ 

sumdef  ls_hmix=0 . 0  ; 
sumdef sid_bmix=0 . 0 ; 
sumdef  ts_bmix=0 . 0  ; 

} 

/*  BBBBBBBBBBBBBB  END  U  BUOYANCY  COMPONENT  COMPUTATION  BBBBBBBBBBBBBBB  */ 

/*  BBBBBBBBBBBBBB  BEGIN  W  BUOYANCY  COMPONENT  COMPUTATION  BBBBBBBBBBBBBBB  */ 
if (ansB==l) { 

/*  Compute  the  secondary  buoyancy  flow  for  this  step,  and  add  it  to  the 

cumulative  velocity  for  both  the  leading  and  trailing  boundary  layers.  */ 

jblls=ublthk_ls  [n]  /dely; 
dwlsmn=0 . 0 ; 

for ( j=0; j<=jblls; j++) { 

dwlsbuoy  [  j  ]  =  (0 . 5*dh-dely*  j  )  *wrad*wrad*  {1 . 0-dens lsm[j  ]  /dens in) 

*delx/  (0.5*  (uinftbl  [n] +uinftbl  [n-1]  )  ) +dwlsbuoy  [  j  ]  ; 
dwlsmn=dwlsinn+dwlsbuoy  [  j  ]  *dely  ; 

> 

dwlsmn=dwlsmn/  ( ( jblls+1 .0)  *dely)  ; 

jblts=ublthk_ts  [n]  /dely; 
dwtsmn=0.0; 

for {j=0; j<=j bits; j++) { 

dwtsbuoy [ j ] = (0 , 5*dh-dely* j ) *wrad*wrad* (1 . 0-dens tsm[j ] /dens in) 

*delx/ (0.5* (uinftbl [n] +uinftbl [n-1] ) ) +dwtsbuoy  [ j ] ; 
dwtsmn=dwtsmn+dwtsbuoy  [  j  ]  *dely  ; 

} 

dwtsmn=dwtsinn/  ( ( jblts+1 .0)  *dely) ; 

/*  These  secondary  buoyancy  flows  act  as  wall  injection  and  tend  to  increase  the 
boundary  layer  displacement  thickness.  */ 

denslsmni=0 . 0 ; 

for  ( j=l;  j<=jblls;  j++)  dens lsinni= dens lsmni+ dens  1  sm[  j  ]  ; 
denslsmni=denslsmni/ jblls ; 

deflswbuoy= (denslsmni*dwlsinn/ (densin*0 .5* (uinftbl [n] +uinftbl [n-1] ) ) ) * 
delx* (l.O-pls/ (pls+1.0) ) / (pis/ (pls+1- 0) -pis/ (pls+2 .0)); 

d€nstsmni=0 . 0 ; 

for { j=l; j<=jblts; j++)  denstsmni=denstsmni+denstsm[ j ] ; 
denstsinni=denstsmni/jblts; 

def tswbuoy=  (denstsinni*dwtsinn/  (densin*0 .5*  (uinftbl  [n]  +uinf tbl  [n-1] )  ) )  * 
delx* (1 . 0-pts/ (pts+1 . 0) ) / (pts/ (pts+l .0) -pts/ (pts+2 . 0) ) ; 

} 

else{ 

de  f 1 s wbuoy =  0.0; 
def tswbuoy=0 . 0 ; 

} 

/*  BBBBBBBBBBBBBB  END  W  BUOYANCY  COMPONENT  COMPUTATION  BBBBBBBBBBBBBBB  */ 

/*  LLLLLLLLLLLLLL  ASSESS  AFFECT  ON  LEADING  WALL  LLLLLLLLLLLLLLL  */ 

/*  Now  that  the  sidewall  secondary  mass  flow  has  been  computed,  compute  the 
leading  side  secondary  velocity  profile  using  continuity  at  the 
corner.  Assume  a  velocity  profile: 

wls  =  constant  *  (y/blthick)  ^0 .5  *  (1  -  y/blthick)  ^"3 
The  constant  is  determined  by  conserving  mass.  */ 

jblls=iiblthk_ls  [n]  /dely; 
int_0=0 .0; 

for ( j=l; j<=jblls; j++)  int_0=int_0+0 . 5* (denslsm[ j ] +denslsm[ j-1] ) * 

pow( (j-0.5)/jblls,0,5)*pow( (1.0-(j -0.5) /jblls) ,3.0) *dely; 
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wlsinax[n]  =0.0; 

for ( j=0; j<=jblls; j++) { 

wls[n] [j]=mdotsw*pow{ j/jblls,0.5) *pow( {1 . 0-j / jblls) ,3.0) /int_0; 
if  (wls  [n]  [  j  ]  >wlsinax[n]  )  wlsmax  [n]  =wls  [n]  [  j]  ; 


/*  Now  the  3  streamwise,  u _ (y) ,  and  2  transverse,  vsid(y)  &  wls{y), 

velocity  profiles  are  in  hand  for  this  streamwise  position. 

The  next  step  is  to  see  how  much  momentum  deficit  is  convected  to  the 

leading  side  due  to  the  coriolis-induced  vortex  flow  during  this  last 

time  step.  To  do  this,  coirpute  the  net  streamwise  usid(y)  momentum  deficit 

located  in  the  vsid(y)<0  part  of  the  transverse  velocity  boundary 

layer . ^  This  is  the  deficit  that  is  convected  to  the  leading  side  during ‘ 

this  time  step.  Again,  since  this  is  over  the  time  step,  dt,  use 

average  values  of  us  id  and  vs  id  for  this  step.  (sumdefls>0)  */ 

sumdef ls=0 . 0 ; 

for { j=l; j<=j€ye; j++) { 

ratio=0,25*{usid[n]  [  j  ] +usid[n'-l]  [j)+usid[n]  [  j-1] +usid[n-l]  [j-1] ) 

*0.5* (denssidm[ j ]+denssidm[ j-1] ) 

/  (0.5*  (uinftbl  [n] -J-uinftbl  [n-1]  )  *densin)  ; 

/*  if (ratio>1.0)  ratio=1.0;  */ 

sumdefls=sumdefls+ (1.0-ratio)  *dely*0 . 5*fabs (vsid[n]  [j]+vsid[n]  [j-1] )  *dt  [n] 


/*  The  momentum  deficits  from  both  coriolis  and  buoyancy  flows  add 
to  ^  the  developing  turbulent  boundary  layer  displacement 
thickness  to  produce  an  amplified  boundary  layer  on  the  leading  side. 

Since  the  deficit  from  coriolis  affects  the  entire  leading  side, 
sumdefls  is  divided  by  (dh/2-blthksid/2)  .  The  added  deficit  will  also 
tend  to  thicken  the  b.l.,  decreasing  the  power  exponent.  */ 

coef f=Tuperc*ublthk_ls [n] /delx; 

pls= (udispthk^ls [n] / (1 . 0-pls/ (pls+1 . 0) ) ) / (udispthk_ls [n] + 
coeff * (sumdef ls_hmix-0 .25*sumcorshft+deflswbuoy 
+sumdefls/(0.5*dh-0.5*ublthk_sid[n] ) ) )-1.0; 

printf ("\tpls=  %.2f",pls); 

ublthk_ls  [n]  =  {udispthk_ls  [n]  +sumdef  ls_bmix-0 . 25*sumcorshf  t+def  Iswbuoy 

+sumdefls/ (0.5*dh-0.5*ublthk_sid[n] ) ) / (1. 0-pls/ (pls+1. 0) ) ; 

umomthk_ls  [n]  ='ublthk_ls  [n]  *  (pis  /  (pls+1 .0)  -pis/  (pls+2 . 0) )  ; 

/*  tTTTTTTTTTTTTTT  assess  AFFECT  ON  TRAILING  WALL  TTTTTTTTTTTTTTTTTT  */ 

/*  The  vortex  flow  also  removes  low  momentum  fluid  from  the  trailing 

side  wall.  This  will  decrease  the  trailing  boundary  layer  thickness,  since 
the  exiting  fluid  is  replaced  with  core  fluid  at  uinf.  To  account  for 
this,  employ  the  same  method  used  with  the  leading  wall's  gain  of 
momentum  deficit.  Use  continuity  at  the  comer  to  compute  a  transverse 
velocity  profile,  since  the  mass  flow  must  be  conserved.  Here 
a  laminar  free  convection  profile  is  assumed  from  the  trailing  wall  to  the 
edge  of  the  streamwise  boundary  layer  thickness  or  yeye,  whichever  is 
larger.  */ 

if  (\iblthk_ts  [n]  >vorteye  [n] )  jblts=ublthk_ts  [n]  /dely ; 

else  jblts=vorteye[n] /dely; 

int_0=0 . 0  ; 

for ( j  =1 ; j  <= jblts ; j  ++ )  int_0=int_0+0 .5* (denstsm [ j ] +denstsm [ j -1 ] ) 

*( (j -0.5) /jblts) *pow{ (1.0- (j -0.5) /jblts) ,2.0) *dely; 

wtsmax[n]=0.0; 

for ( j=0; j<=jblts; j++) { 

wts[n] [j]=-mdotsw* (j/jblts) *pow( (1 . 0-j /jblts) ,2.0) /int_0; 
if (wts[n] [j ]<wtsmax[n] )  wtsmax [n] =wts [n] [j] ; 


/*  With  wts  computed,  calculate  the  total  momentum  deficit  lost 
from  the  trailing  wall  by  this  vortex  flow.  (sumdef ts>0)  */ 


/* 


sumdef ts=0 .0; 


for (j=l; j<=jblts; j++) { 

ratio=0.25*(uts[n] [j]+uts[n-l] [j]+uts[n] [ j -1] +uts [n-1] [j-1] ) 
*0 .5* (denstsm[j]+denstsm[j-l]  ) 

/ (0 .5* (uinftbl [n] +uinftbl [n-1] ) *densin) ; 
if (ratio>l . 0)  ratio=1.0;  */ 

sumdefts=sumdefts+ (1 . 0 -ratio) *dely*0 . 5*fabs (wts [n] [ j ] 

+wts[n] [ j-1] ) *dt[n] ; 


> 


/*  This  momentum  deficit  subtracts  from  the  developing  turbulent 
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boxmdary  layer  displacement  thickness  to  produce  a  vortex  decreased 
dislplacement  thickness  on  the  trailing  side.  If  needed,  reduce 
this  effect  to  prevent  the  boundary  layer  from  disappearing.  */ 


coef f =Tuperc*ublthk_ts [n] /delx; 

if  { {s\amdefts/  (0 . 5*dh-0 . 5*ublthk_sid[n] )  -sumdefts_bmix+0 .25*sumcorshft 
-def  tswbuoy)  >udispthk_ts  [n]  *0 . 5 )  { 

psw=  {udispthk_ts  [n]  /  {1 , 0-pts/  (pts+1 . 0)  ) )  /  {udispthk_ts  [n]  - 
coeff  *udispthk_ts  [n]  *0.5)  ~1.0; 
udispthk_ts  [n]  =udispthk_ts  [n]  *0 . 5  ; 


} 

else{ 

pts=  (udispthk_ts  [n]  /  (1. 0-pts/  {pts+1. 0) ) )  /  (udispthk_ts  [n]  + 
coeff * {sumdefts_bmix+deftswbuoy-0 . 25*sumcorshf t 
-sumdefts/ (0 . 5*dh-0 . 5*ublthk_sid[n] ) ) )-1.0; 
udispthk_ts  [n]  =udispthk_ts  [n]  +sumdef ts_bmix-0 . 25*sumcorshft+def  tswbuoy 
-  (simidefts/  (0 . 5*dh-0 . 5*ublthk_sid[n] ) )  ; 

} 


ublthk_ts  [n]  =udispthk_ts  [n]  /  (1 . 0-pts/ (pts+1 . 0) )  ; 
umomthk_ts  [n]  =ublthk_ts  [n]  *  (pts/  (pts+1 . 0)  -pts/  (pts+2 .0) )  ; 

/*  SSSSSSSSSSSSSSSS  ASSESS  AFFECT  ON  SIDE  WALL  SSSSSSSSSSSSSSSSSS  */ 

/*  The  side  wall  loses  some  momentum  deficit  as  well  (the  difference 

between  the  trailing  wall  loss  and  the  leading  wall  gain)  .  Subtract 

this  from  the  displacement  thickness  there  and  compute  the  new  profiles.  */ 

coef f=Tuperc*ublthk_sid[n] /delx; 

psw=  {udispthk_sid[n]  /  (1 . 0-psw/  (psw+1 . 0)  ) )  /  (udispthk_sid[n3  + 
coeff*  (sumdef sid_hmix-0 . 5*sumcorshf t-  (sumdef Is -sumdefts ) 

/  (dh-ublthk_ls  [n]  /2 . 0-'ublthk_ts  [n]  /2 . 0)  )  )  -1 . 0; 

print f ( " \ tpsw=  % . 2  f " , psw) ; 
printf ( "\tpts=  %.2f",pts); 

ublthk_sid[n]  =  (udispthk_sid[n]  +sumdefsid_bmix-0 . 5*sumcorshft 

-  { sumdef Is-sumdefts)  /  (dh-ublthk_ls  [n]  /2 . 0-ublthk_ts  [n]  /  2 .0) ) 
/  (1 . 0-psw/ (psw+1 . 0) ) ; 

umomthk_sid [n]  =ublthk_sid [n]  *  (psw/  (psw+1 . 0 )  -psw/  (psw+2 . 0 ) ) ; 

/*  Update  all  of  the  profiles  based  on  these  changes  in  displacement  thickness  */ 

/*  Again  for  thermalbc=2,  I  need  an  estimate  of  Q  convected  by  coriolis  vortex. 

To  compute  the  integrals,  use  the  most  recent  Tsid,  vsid,  and  vorteye. 

Still  use  the  mean  density  from  last  step  from  Boussinesque  approx.  */ 

int_0=0 . 0 ; 

for (j=l;j<= (vorteye [n] /dely) ;j++)  int_0=int_0+dely* 

0.25* (Tsid[n] Ej]+Tsid[n] [ j -1] +Tsid [n-1] [ j ] +Tsid[n-1] [ j-1] ) 

*0.5*fabs (vsid[n] [ j]+vsid[n3  [j-1] ) ; 
if(n==l)  denssidmni=densin; 
else{ 

denssidmni=:0 . 0 ; 

for (j=l;j<= (vorteye [n-1] /dely) ;j++)  dens s idmni = dens si dmni 
+0 .5* (denssid[n-l] [ j ] +denssidEn-l] [j])*dely; 
dens s  idmni =dens  s  idmni  /  { j  * de ly )  ; 

} 

delQlsin [n] =specheat*densin*delx*int_0 ; 
int_0=0 . 0; 

for {j=(vorteye[n] /dely) ; j<= (0 . 5*dh/dely) ; j++)  int_0=int_0+ 

0 . 5*fabs (vsid[n] [ j ] +vsid[n] [j-1] ) *deiy; 
delQcore [n] =specheat*densin*delx*Tin*int_0 ; 

Isturbbl (pis) ; 

int_0=0 .0; 

for  { j=l;  j<=  (iablthk_ts  [n]  /dely) ;  j++)  int_0=int_0+dely* 

0.25* (Tts [n] [ j ]+Tts [n] [ j-1] +Tts [n-1] [ j ]+Tts [n-1] [ j-1] ) 

*0 . 5*fabs (wts [n] [ j ] +wts [n] [ j-1] ) ; 
delQtsout [n] =specheat*densin*delx*int_0 ; 

tstxirbbl  (pts)  ; 

sidturbbl  (psw)  ; 

printf  ( ”  \n\t% .  3g\t% .  3g\t% .  3g" ,  delQlsin  [n]  ,  delQcore  [n] ,  delQtsout  [n] )  ; 
printf  ( **  \t% .  2f \t%  .2f \t% .  2f  ”  ,Tavgls  [n]  ,Tavgsid[n]  ,Tavgts  [n] )  ; 

/*  Now  add  the  final  ucor  to  usid  for  the  uinf  acceleration  computation  */ 
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for(j=0; j<=J/2; j++)  usid[n] [j]=usid[n3  [j]+ucor[n] [j] ; 

/*  These  flow  adjustments  have  altered  the  boundary  layers  on  all  3  sides. 

To  account  for  this,  calculate  the  equivalent  x  of  the  tijarbulent  boundary 
that  would  produce  this  adjusted  boundary  layer  momentum  thickness.  */ 

coef f =blcoef f (pis , uinf tbl [n] ) ; 

uinfpwr=( (pls+3.0) * (3 . 0*pls+2) -2 . 0*pls) / {pis* (pls+1.0) ) ; 
int_0=0 . 0 ; 

for(j=l; j<=n-l; j++)  int_0=int_0+pow(0 . 5* {uinf tbl [ j ] +uinftbl [ j-1] ) ,uinfpwr) * 

{xequiv_ls [ j ] -xequiv_ls [ j -1 ] ) ; 

xequiv_ls [n] =xeqaiv_ls [n-l] + 

{pow{  (umomthk_ls[n]  /coeff ) ,  {pls+3.0)  /  {pls+1.0)  )  -int_0) 

/pow{0 .5*  {uinftbl  tn] +uinftbl  [  n-l] )  ,uinfpwr)  ; 

coef  f=blcoeff  (pts,  uinf  tbl  [n] ) ; 

uinfpwr={  {pts+3.0)  *  {3 . 0*pts+2) -2 . 0*pts)  /  {pts*  {pts+1.0)  )  ; 
int_0=0.0; 

f or { j = 1 ; j <  =n- 1 ; j  ++ )  int_0 = int_0  +pow {0.5*{uinftbl[jl +uinf tbl [ j - 1 ] ) , uinf pwr ) * 

{xequiv_ts [ j ] -xequiv_ts [ j -1 ] ) ; 

xequiv_ts  [n]  =xequiv_ts  [n-l]  + 

{pow{  {umomthk_ts[n]  /coeff) ,  {pts+3.0)  /  (pts+1 . 0)  )  -int_0) 

/pow{0 . 5*  {uinftbl  [n]  +uinftbl  [n-l] )  ,uinfpwr)  ; 

coef f=blcoef f (psw, uinftbl [n] ) ; 

uinfpwr=  { {psw+3 . 0)  *  {3 . 0*psw+2)  -2 . 0*psw)  /  {psw*  {psw+1 .0)); 
int_0=0.0; 

f  or  { j  =1 ;  j  <  =n- 1 ;  j  ++ )  int_0 = int_0  +pow  {0.5*{uinftbl[j]  +uinf  tbl  [  j  - 1  ]  )  ,  uinf  pwr )  * 

{ xequiv_s id [ j ] -xequiv_sid [ j - 1 ] ) ; 

xequiv_sid  [n]  =xequiv_sid  [n-l  ]  + 

{pow{  {umomthk_sid[n]  /coeff) ,  {psw+3 , 0)  /  {psw+1 . 0) )  -int_0) 

/pow { 0.5* {uinf tbl [n]+uinf tbl  [n-l] )  ,uinfpwr)  ; 

/*  Before  using  continuity  to  obtain  the  core  acceleration,  determine  the 
extent  of  the  separation  bubble  created  by  the  unmixed  buoyancy  flow 
on  the  leading  side  {if  any  was  specified) .  */ 

int_0=0 .0; 

for {j=l; j<=J; j++)  { 

int_0=int_0+0.5*{uls[n] [j]+uls[n] [ j-1] ) *0 . 5* {densls [n] [ j ] +densls [n] [ j-1] ) *dely; 
i  f  { int_0  >mbunmix )  break  ; 

} 


if{j==l)  ysep=0.0; 
else  ysep=:{j-0.5)*dely; 

/*  The  growing  boundary  layers  on  all  4  sides  will  cause 
a  blockage  in  the  passage  and  accelerate  the  core  flow. 

Apply  continuity  on  the  1/2  passage  {assuming  symmetry) .  Compute  the 
integral  nxamerically .  Since  the  boundary  layers  merge  in  the  comers, 
use  a  "sharing"  of  deficit  in  the  comers.  */ 

jblls=  {ublthk_ls  [n]  +ysep)  /dely; 
jblsid=ublthk_sid[n]  /dely; 
jblts=ublthk_ts  [n]  /dely; 

Aint_ls=:0 . 0 ; 

j  sep=ysep/ dely; 

for { j=l; j<=jblls; j++) { 

if  { j<=jsep)  Aint_ls=Aint_ls+  (0 .5*dh-\iblthk_sid[n]  *{j-0.5)/jblls)  *dely; 
else  Aint_ls=Aint_ls+  {0.5*dh-ublthk_sid[n]  *  {j-0.5)  /jblls)  *dely 
* {1.0-0. 5* {densls [n] [ j-jsep]+densls [n] [j-jsep-1] ) * 

0.5* {uls[n] [j-jsep]+uls[n] [j-jsep-1] ) / {uinftbl [n] *densin) ) ; 

} 

Aint_ts=0 . 0 ; 

for { j  =1 ; j<= j  bits ; j  ++ )  Aint_ts=Aint_ts 

+ {0 .5*dh-ublthk_sid[n] * {j-0.5) / jblts) *dely 
*{l,0-0.5*{densts[n] [ j ] +densts [n] [j-1] )* 

0.5*{uts[n] [j]+uts[n] [j-1] )/ {uinf tbl [n] *densin) ) ; 

Aint_sid=0 . 0  ; 

for { j=l; j<=jblsid; j++)  Aint_sid=Aint_sid+ 

{dh- {ublthk_ls [n] +ysep) * {j-0.5) / jblsid-ublthk_ts [n] * { j-0 .5) /jblsid) 

*dely* {1.0-0.5* {denssid[n] [ j ] +denssid[n] [j-1] ) * 

0 . 5* (usid[n] [ j ] +usid[n] [j-1] ) / {uinftbl [n] *densin) ) ; 

uinftbl  [n]  =uin*  {dh*0.5)  *dh/  {dh*0 . 5*dh-Aint_ls-Aint_sid-Aint__ts)  ; 
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/*  This  uinftbl  and  the  3  xequiv  are  the  only  information  passed  to  the 
next  step.  ^  To  be  consistent,  use  these  to  recompute  the  boxmdary 
layer  profiles  and  statistics  before  printing.  */ 

coef f=blcoef f (psw, uinftbl [n] ) ; 

uinfpwr=( {psw+3 .0) * {3 . 0*psw+2) ~2 . 0*psw) / {psw* (psw+1.0) ) ; 
int_0=0.0; 

for(j=l; j<=n; j++)  int_0=int_0+pow(0 . 5* (uinf tbl [ j ] +uinf tbl [ j-1] ) ,uinfpwr) 

( xequiv_s id [ j ] -xequiv„s id[j-l]); 

\amomthk_sid[n]  =coeff*pow{int_0,  (psw+1.0)  /  (psw+3 .0) )  ; 
ublthk_sid[n]  ='umomthk_sid[n]  /  (psw/  (psw+1 . 0)  -psw/  (psw+2 .0) )  ; 
udispthk_sid[n]  =ublthk_sid[n]  *  (1 . 0-psw/ (psw+1 . 0) )  ; 

coef f=blcoeff (pis, uinf tbl [n] ) ; 

uinfpwr= ( {pls+3 . 0) * (3 . 0*pls+2 ) -2 . 0*pls) / (pis* (pls+1 .0)); 
int„0=0.0; 

for(j=l; j<=n; j++)  int_0=int_0+pow (0 . 5* (uinftbl [j ] +uinf tbl [j-1 ] ) ,uinfpwr) 

(xeq[uiv_ls  [  j  ]  -xequiv_ls  [  j  -1] )  ; 
umomthk_ls  [n]  =coef  f  *pow{int_0,  (pls+1 . 0)  /  (pls+3 . 0) )  ; 

;ablthk_ls  [n]  =umomthk_ls  [n]  /  (pis  /  (pls+1 . 0 )  -pis/  (pls+2 . 0 )  )  ; 
udispthk_ls  [n]  =ublthk_ls  [n]  *  (1 . 0-pls/  (pls+l .  0) )  ; 

coef f=blcoef f (pts, uinftbl [n] ) ; 

uinfpwr=( (pts+3 ,0) *(3 .0*pts+2)-2.0  *pts) / (pts* (pts+1 . 0) ) ; 
int_0=0 . 0; 

for  { j=l;  j<=n;  j++)  int_0=int_0+pow(0 . 5*  (uinftbl  [  j]  +uinftbl  [j-1]  )  ,uinfpwr) 

{xequiv_ts  [  j  ]  -xequiv_t  s  [  j  - 1  ]  )  ; 
uinomthk_ts  [n]  =coeff *pow(int_0,  (pts+l.O)  /  (pts+3 .0)); 
ublthk_ts[n]=umomthk_ts[n]  /  (pts/ (pts+1 . 0) -pts/ {pts+2 . 0)  )  ; 
udispthk_ts  [n]  =ublthk_ts  [n]  *  (1 . 0-pts/  (pts+1 , 0) )  ; 

int_0=:0.0; 

for ( j=l; j<= (vorteye[n] /dely) ; j++)  int_0=int_0+dely* 

0.25*(Tsid[n] [j]+Tsid[n] [ j-l]+Tsid[n-l] [ j ] +Tsid[n-1] [j-1]) 

*0 . 5*fabs (vsid[n] [ j ] +vsid[n] [j-1] ) ; 
if(n==l)  denssidinni=densin; 
else{ 

denssidmni=0 . 0 ; 

for { j=l; j<= (vorteye[n-l] /dely) ; j++)  denssidmni=denssidmni 
+0.5* {denssid[n-l] [ j ] +denssid[n-l] [j])*dely; 
denssidmni=denssidinni/  ( j*dely)  ; 

} 

delQlsin [n] =specheat*densin*delx*int_0 ; 
int_0=0 .0; 

for (j=(vorteye[n] /dely) ; j<= (0 . 5*dh/dely) ;j++)  int_0=int_0+ 
0.5*fabs(vsid[n]  [j]+vsid[n]  [j-l])*dely; 
delQcore [n] =specheat*densin*delx*Tin*int_0 ; 

Istiirbbl  (pis)  ; 

/*  Adjust  uls  for  the  separation  bubble.  */ 

if (ysep>0.0) { 

for( j=J;  j>=0  ;  j  — )  { 

if(j<=jsep)  uls [n] [ j ] =0 . 0; 
else  uls [n] [ j ] =uls [n]  [ j-jsep] ; 

} 

} 

int_0=0 .0; 

for ( j=l; j<= (ublthk_ts[n] /dely) ; j++)  int_0=int_0+dely* 

0.25*(Tts[n] [j]+Tts [n] [ j -1] +Tts [n-1 ] [j]+Tts[n-l] [j-1] ) 

*0.5*fabs (wts [n] [ j]+wts[n] [j-1] ) ; 
delQtsout [n] =specheat*densin*delx*int_0 ; 

tsturbbl (pts) ; 

sidturbbl  (psw)  ; 

printf  ("\n\t%.  3g\t%.3g\t%.3g",  delQlsin  [n]  ,  delQcore  [n]  ,  delQtsout  [n]  )  ; 
printf ( " \t% .2f\t%. 2f \t% .2f " ,Tavgls [n] ,Tavgsid[n] ,Tavgts [n] ) ; 

/*  Compute  the  boundary  layer's  average  density  for  use  in  next  step.  */ 

davgls [n] = (Pin/Rgas) * (1 . 0+nTls) / (Twls [n] +Tin*nTls) ; 
davgsid[n]=(Pin/Rgas) * (l.O+nTsid) / {Twsid[n] +Tin*nTsid) ; 
davgts [n] = { Pin/Rgas ) * ( 1 . 0+nTts ) / (Twts [n] +Tin*nTts ) ; 

/*  To  assess  the  energy  content  of  the  flow  at  each  step,  I  need  an  average 
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fluid  temp.  *! 


Tavg=  (Tavgls  [n]  *  (0 . 5*dh~0 . 5*ublthk_sid[n3 )  *ublthk_ls  [n] 

+Tavgts  [n]  *  (0 . 5*dh-0 . 5*ublthk_sid[n] )  *ublthk_ts  [n] 

+Tavgsid[n]  *(dh-0.5*ublthk_ls[n]-0.5*ublthk_ts[n3 )  *ublthk_sid[n] 

+Tin*  {0.5*dh-ublthk_sid[n]  )  *  (dh-'ublthk_ls  [n] -ublthk_ts  [n] )  ) 

/(0.5*dh*dh)  ; 

print f ( " \tTavg=% . If " , Tavg) ; 

/*  Now  estimate  the  wall  heat  flux  necessary  to  generate  this  Tavg.  */ 

qest=  (densin’^uin*0 . 5*dh^dh)  *specheat*  (Tavg-Tin)  /  {2 . 0*dh*x  [n] )  ; 
print f ( "  qest=% . Of " , qest) ; 

/*  Now  add  the  final  ucor  to  usw  for  the  output  */ 

for(j=0; j<=J/2; j++)  usidEn]  Ej]=usid[n] [j]+ucor[n] [ j] ; 

/*  Compute  the  boundary  layer's  mean  streamwise  velocity  for  use  in  next  step.  */ 

uavgls  [n]  =  (pis/  (pls+1 . 0 )  )  *uinf  tbl  [n]  ; 
uavgts  [n]  =  (pts/  {pts+1 . 0)  )  *uinftbl  [n]  ; 

uavgsid [n] =0.0; 

for(j=l; j<=(ublthk_sid[n] /dely) ;j++)  uavgsid [n] =uavgs id [n] + 

dely*0. 5* (usidEn] [j}+usidEn] [j-1]) ; 

uavgsid  En]  =uavgsid  En]  /  ( j  ♦dely) ; 

/*  Check  for  constant  mass flow.  */ 

jblls=  (ublthk_ls  En]  +ysep)  /dely; 
jblsid=ublthk_sidEn]  /dely; 
jblts=ublthk_ts  En]  /dely; 

mdot=0 .0; 

for ( j  =1 ; j<= jblls ; j  +  + )  mdot=mdot 

+  { 0 . 5*dh-ublthk_sid [n] * ( j  ~0 . 5 ) / jblls ) *dely 

*0.5*(uls[n3  Ej]+uls[n] [j-1] ) *0 . 5* (densls [n] [ j ] +densls En] [j-1] ) ; 

for{j=l;  j<=jblts;  j  +  +  )  mdot=mdot 

+  (0.5*dh-ublthk_sid[n]  *  { j-0.5)  /jblts)  *dely 

*0.5^(uts[n] [j]+uts[n] [ j -1] ) *0 .5* (densts [n] [ j ] +densts [n] [j-1]); 

for { j  =1 ; j<= jblsid; j++ )  mdot=mdot+ 

(dh- {ublthk_ls [n] +ysep) * { j -0 . 5 ) / jblsid-ublthk_ts [n] * ( j-0 . 5 ) / jblsid) 

*dely*0.5*(usid[n] [j]+usid[n] [j-1] ) *0.5* {denssid[n] [ j ] +denssidEn] [j-1] ) ; 

mdot=  (mdot+uinftbl  [n]  *densin*  (0 . 5*dh-‘ublthk_sid[n]  ) 

*  (dh-  (ublthk^ls  [n]  +ysep)  -ublthk_ts  [n] ) )  ; 
mdotrat=mdot/ (densin*uin*0 . 5*dh*dh) ; 
print  f ( "  mdotrat2 =% . 3  f " , mdotrat ) ; 

/*  Is  reverse  flow  predicted  this  step?  */ 

for (j=l; j<=J; j++) { 

if (ulsEn] Ej]<0.0| | usidEn] [j]<0.0| |uts[n] [j]<0.0) { 
fprintf  (fp,  "\hReverse  flow  on  step  n=  %d‘',n); 
printf ( " \nReverse  flow  on  step  n=  %d*',n); 
break; 

} 

} 

if  ( (ublthk_ts  [n]+\iblthk_ls[n]  )>=dh|  |ublthk_sid[n]  >=  (0 . 5*dh)  )  break; 
if (ublthk_ts[n]<=0 .0)  break; 

/*  Use  the  freestream  velocity  and  xequiv  from  this  step  to  pass  along 
to  the  next  "n+1"  step.  */ 

uinftbl [n+l] =uinftbl [n] ; 
xequiv_s id [ n+ 1 ] =xequiv_s id [ n ] +de lx ; 
xequiv_ls  [n+l  ]  =xequiv_ls  [n]  +del  x; 
xequiv_ts [n+l] =xequiv_ts [n] +delx; 
xEn+1] =x[n] +delx; 
dt [n+l] =delx/uinftbl [n] ; 


} 

if(n<=N)  printf  ( "  \nThe  boundary  layers  merged  in  %d  steps. '',n); 
else  printf  ("  \nMade  it  all  the  way  to  %d  without  merging.  ",n-l); 
if(n>N)  n=N; 

N=n; 
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/*  END  imnxirirmiimmnnimn@@@@@©@@@@@@@@  */ 

/*  ****-k***Tjx^Q  program  is  done.  ******  */ 

/*  Print  out  the  run  parameters  to  the  'fp'  datafile.  */ 

fprintf (fp, "\nRedh=  %.0f\tRot=  %.3f\tdh=  %.3f\tPin=  %.0f " ,Redh,Rot,dh,Pin) ; 
fprintf (fp, "\nuin=  %.2f\tTin=  % . If \tdensin=  %.3f\twrps=  %.2f", 
uin,Tin,densin,wrps)  ; 
fprintf  (fp,  "Xn")  ; 
if (ansB==l) { 

if  (thermalbc==l)  fprintf  (fp,  "XnThermalbc  is  constant  heat 

flux  =  %.0f  " ,heatflux) ; 

else  if  (thennalbc==2 )  { 

fprintf  ( fp,  ”  XnVariable  Twall  from  datafile 

fprintf  ( fp,  " XnDensity  ratio  =  %.3f'',densrat); 

fprintf (fp, "XnPer cent  of  LS  buoyant  mix  out  =  %.2f  ",percbls); 

else{ 

fprintf ( fp, " XnThermalbc  is  constant  wall  temperature"); 
fprintf (fp, "XnDensity  ratio  =  %.3f",densrat); 

fprintf (fp, "XnWall  temps  are  Tls=  %.lf  Tsid=  %.lf  and  Tts=  %.lf", 

Twls [Oj ,Twsid(0] ,Twts [0] ) ; 

} 

} 

else  fprintf  (fp,  "No  buoyancy  is  considered  for  this  run.  "); 
fprintf (fp, "XnTurbulent  mixing  constant  is  Tuperc=  %.2f  ",Tuperc); 
fprintf (fp, "Xn") ; 

fprintf  (fp,  "Xn%d  cross-^stream  intervals  fit  on  each  b.l.",J); 
fprintf  (fp,  "Xn%d  streamwise  inteirvals  with  step  =  %  .2f  *dh"  ,N,  c4)  ; 

/*  Print  out  the  data.  */ 

printf  ( "  XnEnter  inteival  for  printing  nstep  data:  "); 
scanf  ( "%d" ,  &nstep)  ; 

fprintf  ( fp,  "  Xn" )  ; 

fprintf  (fp,  "XnAll  velocities  normalized  by  uin"),- 
fprintf (fp, "XnAll  lengths  normalized  by  dh"); 
fprintf (fp, "Xn" ) ; 
fprintf ( fp, " XnVelocities " ) ; 

fprintf  (fp,  "  Xnn  x  uinftbl  wlsmax  vsidmax  wtsmax"); 
for (n=l;n<=N;n++)  { 
remaind=n%nstep ; 

if (r€maind==0)  fprintf (fp, " Xn%d  %.2f  %.4f  %.4f  %.4f  %.4f  %.4f", 

n,x[n]  /dh,  uinftbl  [n]  /uin, wlsmax  [n]  /uin, vsidmax  [n]  /uin, wtsmax  [n]  /uin) 


/*  Print  the  bl  thic)aiesses .  */ 

fprintf ( fp, " Xn" ) ; 

fprintf (fp, "XnThe  boundary  layer  thicknesses  and  vortex  eye  position  are"); 
fprintf  (fp,  "Xnn  x  \iblthk_ls  ublthk_sid  ublthk_ts  vorteye"); 
for (n=l;n<=N;n++) { 
remaind=n%nstep ; 

if (remaind==0)  fprintf (fp, " Xn%d  %.2f  %.4f  %.4f  %.4f  %.4f", 
n,x[n]  /dh,ublthk_ls  [n]  /dh,ublthk_sid[n]  /dh, 
ublthk_ts  [n]  /dh,  vorteye  [n]  /dh)  ; 

} 

/*  Print  to  non-headered  file  for  use  in  Mat lab  plots  */ 

f or ( n=l ; n<=N ; n++ ) { 
remaind=n%nstep ; 

if  (remaind=:=0)  fprintf  (fx,  "Xn%.  2  f  %.4f  %.4f  %.4f  %.4f  %.4f  %.4f  %.4f  %.4f", 
xtn]  /dh,  uinftbl  [n]  /uin,ublthk_ls  [n]  /dh,ublthk_sid[n]  /dh, 

\ablthk_ts  [n]  /dh,  vorteye  [n]  /dh,  wlsmax  [n]  /uin,  vsidmax  [n]  /uin, 
wtsmax  [n]  /uin)  ; 

} 


/*  If  constant  heat  flux  case,  print  out  wall  temperatures.  */ 

if  (thenrialbc==l)  { 

fprintf (fp, "Xn") ; 

fprintf (fp, " XnThe  wall  temperatures  for  const  q  case  are"); 
fprintf (fp, "Xnn  x  Twls  Twsid  Twts  "); 

Twavg=0 . 0 ; 

for {n=l;n<=N;n++) { 

Twavg=  Twavg+Twls  [n]  +2*Twsid  [n]  +Twts  [n]  ; 
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reinaind=n%nstep  ; 

if (remaind==0)  fprintf {fp, " \n%d  %,2f  %.4f  %,4f  %.4f", 

^  n,x[n]/dh,Twls[n],Twsid[n] ,Twts[n] ) ; 

Twavg=Twavg/N/4 . 0 ; 
densrat= (Twavg-Tin) /Twavg; 

^  fprintf (fp, " \nConst  q  case:  densrat  based  on  Twavg  is:  %f  ".densrat); 

/*  Print  b.l,  data  for  plotting.  */ 
do{ 

printf  ( ”  \nThere  are  N=%d  time  intervals  before  the  model  stopped'SN); 
printf ( " \nEnter  n  <=  N  for  b.l.  data:  "); 
scanf  ('’%d"  ,&n)  ; 

}while{n>N| |n<=0) ; 

fprintf  {fp,"\n''); 

fprintf (fp, "\nbl  data  at  x/dh=  %.2f",x[n]/dh); 

fprintf (fp, "\n2lsts  ulsts  wlsts  ysid  usid  vsid"); 

interv=10;  /*  The  printing  interval  for  boundary  layer  data  */ 


for {j=0; j<=J; j++) { 
remaind= j  %interv; 

if  (remaind==0)  fprintf  (fp,  "\n%. 4 f  %.6f  %.6f  %.4f  %.6f  %.6f% 

( j*dely/dh-0.5)  ,uls[n]  [j]  /uin,wls[n]  [j]  /uin,  j *dely/dh, 

^  usid[n3  [  j  ]  /uin,  vsid[n]  [  j  ]  /uin)  ; 

fprintf  (fp,"\n'’); 
for ( j=J; j>=0; j--) { 
remaind= j  %interv; 

if  {remaind==0)  fprintf  (fp, '•\n%. 4 f  %.6f  %.6f  %.4f  %.6f  %.6f% 

{0.5-j*dely/dh)  ,uts[n]  [  j  ] /uin,wts  [n]  Ej]/uin,  (1 . 0-j  *dely/dh) , 
usid[n3  [j]  /uin,vsid[n]  [j]  /uin)  ; 


/*  Print  a  non-headered  profile  file  for  Matlab  */ 


for (j=0; j<=J; j++) { 
r  emaind=  j  %  inteirv  ; 

if  {remaind==0)  fprintf  { fy,  " \n% . 4f  %.6f  %.6f  %.6f  %.6f  %.6f  %.6f  %.6f'’, 
j*dely/dh,uls  [n]  [ j  ] /uin,usid[n]  [  j ] /uin,uts  [n]  [j]/uin, 
wls[n]  [j]/uin,vsid[n]  [  j  ] /uin,  wts  [n]  [  j  ] /uin,ucor  [n]  [j]/uin)  ; 


/*  Close  the  'fp'  data  file  */ 

fprintf { fp, " \nThat ' s  all  folks " ) ; 
f close (fp)  ; 
f close (fx) ; 
f close  (fy)  ; 
f close (fi) ; 


do{ 

printf  ("  \nPIV  program  data  needed?  l=y,  0=n:  " )  ; 
scanf  ("%d"  ,&ans)  ; 

}while  (ans>l)  ; 


/*  Print  out  the  data  for  the  PIV  program  */ 
if (ans==l) { 

f  q|=f  open  { "  jpbPVIlO .  dat  ” , "  w+ " )  ; 

printf (" \nEn ter  beginning  and  ending  N  profiles  needed  (Beg  End):  "); 
scanf  ( "  %d  %d'' ,  &Beg,  &End)  ; 


fprintf  (fq,  "\n%f  %f  %f  %f  %f "  ,Redh, Rot, densrat,  airpl it, wrps)  ; 
fprintf (fq, "\n%d  %d  %f  %f”, J, (End-Beg+1) ,dh,Rin) ; 


fprintf (fq, "Xn” ) ; 
for (n=Beg ; n<=End; n++ ) { 


} 


fprintf (fq, ”\n%. 6 f  %.6f  %.6f  % . 6f " ,x[n3 /dh, dely/dh, 
dely/dh, dely/dh) ; 


fprintf (fq, "\n" ) ; 
for (n=Beg;n<=End;n++) { 

fprintf  (fq, ''\n%.  6 f  %.6f  %.6f  %.6f", 

ublt3ik_ls  [n]  /dh,ublthk_sid[n3  /dh,  ublthk_ts  [n3  /dh, 
vorteye  [n)  /dh)  ,- 

> 
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fprintf  (fq,  "\n" )  ; 
for (n=Beg ; n<=End; n++  > { 
for( j=0; j<=J; j++) { 

fprintf (fq, ”\n%. 6 f  %.6f  %.6f  %*6f  %.6f  %.6f", 

uls [n] [ j ] ,usid[n] [ j ] ,uts [n] [ j ] ,wls [n] [ j ] , vsid[n] [ j ] ,wts [n] [ j ] ) 

fprintf  (fq,  "Xn" )  ; 

} 

fprintf ( fq, " \nThat  *  s  all  folks " ) ; 
fclose(fq) ; 


return ( 0 ) ; 


^*'k-k*irie-iticifk-k-ieifkir'kic*-kir*’k'ki(*'k'kieie’ie**icif)cie**'*cit**ieie'kieie-kieitir**ir*-k-kieieie'k  j 
l**'ie*'kif^*-kie*ie-k’k'k’k*-k'kick-k*ir*ie***iFierk-k'kifkicie*ieici(*ic*'k*-kirie*-kifk^e-k*irie*'k  j 

/*  This  subroutine  computes  the  temperature  profiles  based  on 
an  application  of  energy  conservation  in  the  passage  for  the 
constant  heat  flux  case.  '*' / 


energcons ( ) 

{  int  j ; 

float  int_0 , int_l ; 

/*  There  are  2  integrals  that  need  to  be  computed  to  apply  energy 
conservation,  */ 


jblls=ublthk_lsmax/dely; 
:jblsid=iiblthk_sidmax/dely; 
j  bl  ts=ubl  thk_t  smax/ dely ; 


int_l=0.0; 

for  ( j=l;  j<=jblls;  j+4-)  { 

if ( ( { j-0.5) *dely/ublthk_ls[n] )>=1.0)  ratio=1.0; 
else  ratio=pow(  ( (j-0.5)  *dely/ublthk_ls  [n] )  ,0.1429)  ; 
int_l=int_l+  (0.5*dh-ublthk_sidinax*j/jbils)  *dely*  (1-ratio)  ; 


for ( j=l; j<=jblsid; j++) { 

if ( ( ( j-0.5) *dely/ublthk_s id [n] )>=1.0)  ratio=1.0; 
else  ratio=pow( ((j-0.5) *dely/ublthk_sid[n] ) , 0 . 1429) ; 
int_l=int_l+  (ublthk_sid[n]  /\iblthk_ls  [n]  )  *  (dh-ublthk_lsmcix*j/jblsid- 
ublthk_tsmax*j  /jblsid)  *dely*  (1-ratio)  ; 


} 

for  {j=:l;  j<= j  bits;  j++)  { 

if (( {j-0.5) *dely/ublthk_ts[n] )>=1.0)  ratio=1.0; 
else  ratio=pow(  ( (j-0.5)  *dely/ublthk__ts  [n] ) ,  0 . 1429 )  ; 

int_l=int_l+  (\ablthk_ts  [n]  /ublthk_ls  [n] )  *  (0 . 5*dh-ublthk_sidmax*  j  /  jblts) 
*dely* (1-ratio) ; 


} 


Twls  [n]  =Tin+  (heatflux*x[n]  *2*dh/densin/specheat/uin)  /int_l; 
'IVsid[n]  =  (Twls  [n]  -Tin)  *ublthk_sid[nl  /ublthk_ls  [n]  +Tin; 

Twts  [n]  =  (Twls  [n]  -Tin)  *ublthk_ts  [n]  /ublthk_ls  [n]  +Tin; 

/*  Now  that  I  know  the  wall  temperatures  at  this  step.  Compute  the 
l/7th  profiles  */ 


for { j=0; j<=J; j++) { 

if { j*dely<=ublthk_ls [n] )  Tls[n] [ j ] =Tin+ 

(l-pow( (j*dely/ublthk_ls[n] ) ,0.1429) )* (Twls [n] -Tin) ; 
else  Tls [n] [ j ] =Tin; 
densls[n] [ j ] =Pin/Tls [n] [j]/Rgas; 

} 

for ( j=0; j<=J; j++) { 

if ( j  *dely<=ublthk_sid[n] )  Tsid[n] [ j ] =Tin+ 

(l-pow( ( j*dely/ublthk_sid[n] ) ,0.1429) ) * {Twsid[n] -Tin) ; 
else  Tsid[n] [ j ] =Tin; 
denssid[n] [ j ] =Pin/Tsid[n] [j]/Rgas; 

} 

for( j=0; j<=J; j++) { 

if ( j*dely<=ublthk_ts [n] )  Tts [n] [ j] =Tin+ 

(l-pow{ (j*dely/ublthk_ts[n] ) ,0.1429) ) * (Twts [n] -Tin) ; 
else  Tts [n] [ j ]=Tin; 
denstsEn] [ j ) =Pin/Tts [n] [j]/Rgas; 


return ( 1 ) ; 
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/★♦★★★★★★★★★★★**********.********^r  *★**★★*★***♦***  *********  J 

/*★****************************** *****^******^^***^**^^^  J 

/******  ^  This  subroutine  confutes  the  turbulent  boundary  layer 
profile  for  the  leading  wall.  */ 
float  Isturbbl (float  blp) 

{  int  j,g; 

uls [n] [0]=0.0; 
for{j=l; j<=J; j++) { 

if  {j*dely<=ublthk_ls[n] )  uls[n]  [  j  ]  =uinftbl  [n]  ^pow(  ( j  *dely/ublthk_ls  [n] )  ,1.0 /blp) 
else  uls[n]  [j]=uinftbl[n]  ; 

> 

uavgls  [n]  =  (blp/  (blp+1 . 0 ) )  *uinf  tbl  [n] ; 

for ( j=0; j<=J; j++) { 

if  ( j*dely<=ublthk_ls  [n] )  { 
if (thennalbc==0) { 

Tls[n]  [  j]  =Tin+(l“pow(  ( j*dely/\iblthk_ls  [n] )  ,1.0/blp) )  *  (Twls  [n] -Tin)  ; 

^  Tavgls  [n]  ==  (Twls  [n]  +Tin*blp)  /  (1 . 0+blp)  ; 

else  if (thermalbc==2) { 
delQsuinl=0 . 0  ; 

for(g=l;g<=n;g++)  delQsuml=delQsuinl+delQlsin  [g]  ; 
delQsum3=0.0; 

for  (g=l  ;g<=n;g++)  delQs\3in3=delQsuin3+delQcore  [g]  ; 

Tavgls  [n]  =Tin+  (qwls*0 . 5*dh*x  [n]  +delQsuml-delQsum3 )  / 

(specheat*uavgls  [n]  *ublthk_ls  [n] 

*  (0.5*dh-0 . 5*ublthk_sid[n] )  *densin)  ; 
nTls=  (Twls  [n]  -Tavgls  [n] )  /  (Tavgls  [n]  -Tin)  ; 

Tls [n] [ j ] =Tin+ 

^  (l-pow( (j*dely/ublthk_ls[n] ) ,1.0/nTls) )* (Twls [n] -Tin) ; 

else  Tls[n] [j]=Tin; 

} 

else{ 

Tls [n] [ j ] =Tin; 

} 

densls[n] [ j ] =Pin/Tls [n] [j]/Rgas; 

} 

return (2)  ; 

} 

/**************************************^******^***^*^^^^^^ 
/*********♦********************************* ********^**^^ 

/**★★**  This  subroutine  coitputes  the  turbulent  boundary  layer 
profile  for  the  trailing  wall.  */ 
float  tsturbbl (float  blp) 

{  int  j,g; 

uts [n] [0]=0.0; 
for (j=l; j<=J; j++) { 

if  ( j*dely<='ublthk_ts  [n] )  uts  [n]  [  j  ]  =uinftbl  [n]  *pow(  ( jMely/\iblthk_ts  [n]  )  ,  1 . 0/blp) 
else  uts  [n]  [  j  ]  =uinf tbl  [n]  ; 

> 

uavgts  [n]  =  (blp/  (blp+1 . 0) )  *uinf tbl  [n]  ; 

for ( j  =0 ; j  <=J; j  ++ ) { 

if  ( j*dely<=iiblthk_ts  [n] )  { 
if {thennalbc==0) { 

Tts[n]  [  j]=Tin+(l-pow(  ( j *dely/ublthk_ts  [n]  )  ,  1.0 /blp) )  *  (Twts(n]  -Tin)  ; 

^  Tavgts  [n]  =  (Twts  [n]  +Tin*blp)  /  ( 1 . 0+blp)  ; 

else  if ( thennalbc==2 ) { 
delQsum2=0.0; 

for{g=l;g<=n;g++)  delQsuiti2=delQsinn2+delQtsout  [g]  ; 
delQsuin3=0 . 0  ; 

for  (g=l ;  g<=n;g++)  delQsuin3=delQsuin3+delQcore  [g]  ; 

Tavgts  [n]  =Tin+  (qwts*0 . 5*dh*x  [n]  -delQsuin2+delQsuin3 )  / 

(specheat*uavgts  [n]  *ublthk_ts  [n] 

*  (0 . 5*dh-0 .5*iiblthk_sid[n] )  *densin)  ; 
nTts=  (Twts  [n]  -Tavgts  [n] )  /  (Tavgts  [n]  -Tin)  ; 

Tts [n] [ j ] =Tin+ 

^  (l-pow( (j*dely/ublthk_ts[n] ) ,1.0/nTts) ) * (Twts [n] -Tin) ; 

else  Tts[n] [j]=Tin; 

> 

else{ 

Tts [n] [ j ] =Tin; 

} 

densts[n] [ j ] =Pin/Tts [n] [j]/Rgas; 
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} 


return (3) ; 

} 

/★*****************^******************^*****^****^*******^ 

/******★*•*■******■*******★******★*★*****★**★******★*******  y 

/*★***★  This  subroutine  coirputes  the  turbulent  boundary  layer 
profile  for  the  side  wall.  */ 
float  sidturbbl (float  blp) 

{  int  j,g; 

uavgsid[n] =0.0; 
usid[n] [0]=0.0; 
for{j=l; j<=J; j++) { 

if  ( j*dely<=ublthk_sid[n] )  { 

usid[n]  [j]=uinftbl[n]’*^pow(  ( j*dely/ublthk_sid[n] )  ,1.0/blp)  ; 

uavgsid[n]=uavgsid[n]+dely*0.5*(usid[n] [j3+usid[n] [ j-1] +ucor [n] [j]+ucor[n} [j-1] ) ; 
g=j; 

} 

else  usid[n] [ j ] =uinftbl [n] ; 

} 

uavgsid[n3  =uavgsid[n] / (g*dely) ; 

for( j=0; j<=J; j++) { 

if  { j*dely<=ublthk_sid[n] )  { 
if (thermalbc==0) { 

Tsidfn]  [j]=Tin+(l-pow(  (j ♦dely/ublthk.sidLn] )  ,  1 . 0/blp) )  *  (Twsid[n]  -Tin)  ; 
Tavgsid[n]  =  {Twsid[n]+Tin*blp)  /  (l.O+blp)  ; 

} 

else  if (thermalbc==2) { 

Tavgsid[n]  =Tin+  (qwsid*dh*x[n]  +delQsum2~delQsuml)  / 

( specheat*uavgsid  [n]  *ublthk_sid  [n] 

*  (dh-0 .  5*iiblthk_ls  [n]  -0 . 5*ublthk_ts  [n] )  *densin)  ; 
nTsid= (Twsid[n] -Tavgsid[n] ) / (Tavgsid[n] -Tin) ; 

Tsid[n] [j]=Tin+ 

^  {l-pow{  (j*dely/ublthk_sid[n]  )  ,  1.0/nTsid) )  *  (Twsid[n] -Tin)  ; 

else  Tsid[n]  [j]=Tin; 

} 

else{ 

Tsid[n]  [j]=Tin; 

} 

denssid[n]  [ j 3  =Pin/Tsid[n]  [jl/Rgas; 

} 

return (4)  ; 

} 

/**************♦*★*•*•*************************************/ 

/******  This  subroutine  coinputes  the  coefficient  to  the 
momentum  thickness  equation.  */ 
float  blcoeff (float  p,  float  u) 

{  float  c; 

c=pow( (p+3 .0) / (p+1.0) , (p+1.0) / (p+3 .0) ) ; 
c=c*pow(kv'isc,2.0/  (p+3-0)  )  ; 

c=c*pow(  (pow(  (p/  (p+1.0) -p/  (p+2 .0) )  ,1/p)  /8.75)  ,2.0*p/  (p+3 .0)  )  ; 
c=c/pow(u,  (3.0*p+2.0)/p); 

return  (c)  ; 

} 
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Appendix  B:  Variable  Resistivity  Code 

/*  Title:  jpbqvar4.c 
Author:  Jeffrey  Bons 
Date:  17  P^r  97  */ 

/*  Calculate  Effect  of  variable  resistivity  on  local  heat  generation 

Assumes  each  side  is  isolated  electically  with  a  boundary  condition 
of  zero  lateral  potential  gradient  at  the  side  edges.  Also  assumes 
a  thickness  much  less  than  the  length  &  width  (2-D) 
uses  values  for  ITO  from  20  Mar  97  nm  */ 

/**! 

#include  <stdio.h> 

# include  <math.h> 
tinclude  <stdlib.h> 

int  side,  JJ,  J,  I,  j,  i,  mm,  n,  mid; 
long  int  sweep,  intvl,  cntr; 

static  double  conv,  firstRes,  Ressum,  pi,  len,  wid,  Vo,  Vf,  Resnorm,  Tavg, 

resavg,  Qavg,  resOC,  ter,  thick,  Tsum,  netcurr,  net res,  Res side, 
force[18] [18] ,  pot[18][18],  Resid[18] [18] ,  res[18][18], 
dpotdy[18] [18],  dpotdx[18] [18] ,  qloc [18] [18] ,  temp [18] [18] ; 

FILE  *fp; 

int  jacob(void); 

main( ) 

{  fp=f  open  { "  jpbresS .  dat " , " w+  *■ )  ; 

/*  Input  Run  Sequence  Parameters  */ 

printf ("Enter  #  of  cells,  JJ,  in  lateral  (x)  direction:"); 
scanf("%d'’,  &JJ)  ; 

printf ( "Enter  #  of  cells,  I,  in  radial  (y)  direction:"); 
scanf("%d",  &I)  ; 

printf ("Enter  test  section  side  for  calculation:"); 
printf ( "0=Leading  Side,  l=Side,  2=Trailing  Side:"); 
scanf ( "%d" ,  &side) ; 

printf ( "Enter  #  of  Jacobi  sweeps  in  iteration:"); 

scanf  ( "%ld" ,  &:sweep)  ; 

printf ( " Printing  interval ,  intvl : " ) ; 

scanf ( "%ld" ,  &intvl) ; 

printf ("\nJNodes:  %d\tINodes:  %d\tSide:  %d\tNsweeps:  %ld",JJ,I,side,sweep); 
fprintf  (fp,  "\nJNodes:  %d\ t INodes  :  %d\tSide:  %d\tNsweeps:  %ld"  ,JJ,  I, side,  sweep) 

/*  To  use  the  Bounda^  Condition  of  zero  gradient,  need  to  use  the 

fictitious  nodes  j  =  -1,  JJ+1  outside  the  physical  domain.  So  define 

J=JJ+2 ; 

/*  Set  initial  values  and  constants  */ 

conv=100000 . 0; 
cntr=0 ; 

pi=3. 141592654; 

/*  The  spatial  grid  dimensions  for  one  side  of  the  test  section,  [meters]*/ 

thick=0. 00000085 ; 
len=0.09; 
wid=0 .01; 

/*  Inlet  and  exit  voltage  potential  levels  ,  [volts]  */ 

Vo=0.0; 

Vf=23,5; 

/*  Initialize  the  forcing  array  */ 

/*  Begin  iteration  with  linear  lengthwise  potential  gradient  */ 

/*  and  no  lateral  potential  gradients  */ 


for { j=0; j<=J; j++) { 

for ( i=0 ; i<=I ; i++ ) { 
force[ j] [i]=0.0; 

pot[j] [i]=Vo+(i*len/I) *(Vf-Vo) /len; 

/*  pot [ j]  [i]  =Vo+ (Vf-Vo)  *pow(  (i*len/I) /len,2)  ;  for  linear  T*/ 

if(i==I)  force[j]  [i]=Vf; 


155 


if(i==0)  force[ j ] [i] =Vo; 

} 

} 

/*  Call  the  sxibroutine  to  perform  the  iteration  */ 

jacobO  ; 

!*  Print  Residue  at  Last  Iteration  */ 

printf ( " \nCounter\tRessum\t\tFirstRes\tResnorm" ) ; 
fprintf (fp, "\nCoimter\tRessum\t\tFirstRes\tResnonn") ; 
printf {''\n%ld\t%.9f\t%.9f\t%.9f",  cntr-l,  Ressum, 
firstRes,  Resnorm); 

fprintf (fp, "\n%ld\t%.9f \t%.9f\t%.9f " ,  cntr-1,  Ressum, 
firstRes,  Resnorm) ; 

/*  Calculate  average  resistance  and  heat  flux*/ 

Tavg=Tsum/ ( (JJ+1) * (I+l) ) ; 
resavg=resOC* (1+tcr* (Tavg-0 . 0) ) ; 

Resside=resavg*len/ (wid* thick) ; 

Qavg=  (pow(  (Vf-Vo)  ,2)  /  (wid*len) )  *  (l/Resside)  ; 

printf {" \nAvg  TempXtAvg  ResistXtSide  Res\tAvg  Heat  Flux  [W/in2]"); 
fprintf  (fp,  "\nAvg  Temp\tAvg  ResistXtSide  ResXtAvg  Heat  Flux  [W/m2]"); 
printf ("\n%.2f\t\t%.9f\t%.2f\t%.2f",Tavg,resavg,Resside,Qavg) ; 
fprintf (fp, "\n%.2f\t\t%.9f\t%.2f\t%.2f " ,Tavg,resavg,Resside,Qavg) ; 

/*  Calculate  local  heat  flux  */ 

fprintf  (fp,  "NnHatrix  of  surface  heat  flux  variation  [qloc/qavg-l]%'’); 
for (i=0; i<=I; i++) { 
fprintf (fp, "\n" ) ; 
for(j=l? j<J; j++) { 
if  (i==0){ 

dpotdy[j] [i]=(pot[j3  [i+l]-pot[j] [i])/{len/I) ; 
dpotdx[j] Ei]  =  {pot[j+13 [i3-pot[j-13  Ei3 ) / {2*wid/ (J-2) ) ; 

} 

else  if(i==I){ 

dpotdy[j3 [i3=(pot[j3  [i]-pot[j3  [i-1] ) / (len/I) ; 
dpotdx[j] [i3=(pot[j+13 [i3-pottj-13 [i3 ) / (2*wid/ ( J-2) ) ; 

} 

else{ 

dpotdy[j3 [i3={pot[j3  [i+13“Pot[j3 [i-13 ) / {2*len/I) ; 
dpotdx[j3  Ei3  =  (pot[j+13 [i3-pot[j-l] [i3 ) / (2*wid/ {J-2) ) ; 

} 

qloc[j3 [i3=(pow(dpotdy[j3 [i3 , 2) +pow(dpotdx[ j 3  [i3 ,2) ) /res[j3 [i] ; 
fprintf  (fp,  "%.2f  'MOO*  (qloc  [  j  3  [i3  *thick/Qavg-l .0) )  ; 

} 

/*  Calculate  bulk  side  resistance  by  first  corrputing  the  net 
current  through  the  side  at  mid- span  */ 

mid=abs(I/2) ; 
netcurr=0 . 0 ; 
for ( j=l; j<J; j++) { 

if(j==l  I  j==(J-l)){ 

netcurr=netcurr+(wid/JJ/2)*(dpotdy[j3  [mid3 ) /res [ j 3  [mid]  ; 

else{ 

netcurr=netcurr+  (wid/ JJ)  *  (dpotdy  [  j  ]  [mid] )  /res  [  j  ]  [mid]  ; 

} 

netcurr=netcurr*thick ; 
netres= (Vf-Vo) /netcurr; 

fprintf  (fp,  "XnCurrent  through  side  =  %.4f  Ainps",netcurr); 
fprintf (fp, "XnSide  Resistance=  %.4f  Ohms " , netres ) ; 

fprintf (fp, "Xn" ) ; 

f close (fp) ; 
return (0) ; 


/*  Subroutine  to  perform  Jacobi  sweeps  */ 
jacobO 

{  int  p ,  i ,  j  ,  mec  ; 
long  int  n; 

static  double  Tin,  delTy,  delTx,  deltax,  deltay,  dx2,  dy2,  k, 
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dresdx[183 [18] ,  dresdy [18] [18] ,  dumpot [18] [18] ; 

/*  Set  up  teitiperature/resistivity  fxinctions  */ 

res0C=0 . 000005672 ;  /*  [ohm-meters]  for  side  2  */ 
tcr=  0.0 0031;  /*  [ohm-meters  per  degree  C]  */ 

Tin^l38^0j|^  /♦  [degC]  wall  temp  at  inlet  */ 

/*  [degC]  max  temp  variation  end  to  end  */ 

/*  [degC]  max  temp  variation  aroiand  perimeter  */ 

/*  [degC]  max  temp  variation  end  to  end  */ 

/*  [degC]  max  temp  variation  around  perimeter  */ 

/*  Set  up  grid  dimensions  at  this  level  */ 

deltax=wid/ JJ;  /*  Due  to  added  side  nodes  */ 

deltay=len/I; 

dx2 =deltax*del tax ; 

dy 2  =del tay *de 1 tay ; 

k=0.5*(dy2*dx2/ (dy2+dx2) ) ; 

/*  Compute  local  values  of  temperature,  resistivity,  and  resistivity  gradients*/ 
Tsum=0; 

print f  ( "  \nTeirp  Matrix  ConputedXn" )  ; 
fprintf  (fp,  "\nLocal  Teirp  Matrix"); 

p=side* ( J-2) ; 

for { i=0 ; i<=I ; i++ ) { 
fprintf (fp, "\n" ) ; 
for(j=p; j<=(p+J-2) ; j++> { 

temp [ j-p+1] [i] =Tin+2 . 0*delTy*i*deltay/ (0 . 75*len) -delTy* 

pow(i*deltay/ {0.75*len) ,2)+0.5*delTx*sin(pi*i*deltay/len) 

*cos (2 . 0*pi* ( j  *deltax-wid/2 . 0) / (4 . 0*wid) ) ; 
res [j-p+1] [i]=res0C*(l+tcr*(temp[j-p+13  [i]-0.0) ) ; 
dresdx [j-p+1]  [i]  =-resOC*tcr*delTx*pi*sin(pi*i*deltay/len) 

*sin(2 .0*pi*  { j*deltax-wid/2 .0)  /  (4 .0*wid) )  /  (4.0*wid)  ; 
dresdy[ j-p+1] [i] =res0C*tcr* (2 .0*delTy/ (0.75*len)-2 .0*delTy* 
i*deltay/pow( 0 . 75*len,  2  >  +0 . 5*delTx*pi*cos  (pi*i*deltay/len) 

*cos  (2 .0*pi*  ( j*deltax-wid/2 .0)  /  (4 .0*wid) )  /len)  ; 

/*  for  linear  Teirp  gradient  */ 

/*  temp[ j-p+1]  [i]=Tin+delTy*i*deltay/len; 

res[j-p+l]  [i3=res0C*(l+tcr*(terrp[j-p+l]  [i]-0.0) )  ; 
dresdx[ j-p+1] [i]=0.0; 

dresdy[ j-p+1] [i] =resOC*tcr*delTy/len;  */ 

Tsum=:Tsum+teirp[ j-p+1]  [i]  ; 

fprintf  (fp,  "%.2f  ",  (teitp[  j-p+1]  [i]+273)  )  ; 

} 

fprintf (fp, "NnLocal  Resist  Matrix"); 
for ( i=0 ; i<=I ; i++ ) { 
fprintf (fp, "\n" ) ; 

^  for{j=p; j<=(p+j-2) ; j++)  fprintf (fp, "%. 3e  ",res[j-p+l][i]); 

fprintf (fp, "\nLocal  dresdx  Matrix"); 
for  ( i=:0 ;  i<=I ;  i++ )  { 
fprintf  (fp,  "\n" )  ; 

^  for (j=p; j<=(p+j-2) ; j++)  fprintf (fp, "%.3e  ", dresdx[ j-p+1] [i] ) ; 

fprintf { fp, " \nLocal  dresdy  Matrix" ) ; 
for (i=0;i<=I;i++) { 
fprintf (fp, "\n")  ; 

^  for{j=p; j<=(p+j-2) ; j++)  fprintf (fp, "%. 3e  ”,dresdy[j-p+l][i]); 

MM=( j+1) * (i+l) -1;  /*  Matrix  size  at  this  level  */ 

/*  Perform  Jacobi  sweeps  */ 

for (n=l ; n<=sweep ; n++ ) { 
for(j=0; j<=J; j++) { 

for (i=0; i<=I;i++) { 

duirpot[j]  [i]=pot[j]  [i]  ; 

} 

} 

for (j=0; j<=J; j++) { 

for (i=0;i<=I;i++) { 


delTx=40 .0 
delTy=29 .0 
delTx=40 . 0 
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if  (i==:0)  pot[j]  [i3=force[j]  [i]  ; 

else  if(i==I)  pot [ j 3  [i] =force [ j ] [i] ; 

else  if(j==0)  pot  [  j  ]  [i]  =duinpot  [  j+2]  [i] +force  [  j  ]  [i]  ; 

else  if{j==j)  pot[j]  [i]=duitpot[j->2]  [i]+force[j3  [i]  ; 

else  pot[j3  [i3  =  (k/res[j] 

{res[j3  [i3/cax2-dresdx[j3  [i3  *0 .5/deltax)  Muinpot [  j+13  [i3 
+  (res[j3  [i] /dx2+dresdx[j3  [i3  *0 . 5/deltax)  *diaiipot  [ j -13  [i3 
+  (res[j3  [i3/dy2-dresdy[j3  [i3  *0.5/deltay)  Mxampot  [ j 3  [i+13 
+  (res[j3  [i3 /dy2+dresdy[j3  [i3  *0 . 5/deltay)  *diiinpot  [  j ]  [i-1] ) 
+force[j3  [i] ; 

} 

} 

Coirpute  the  residue  at  this  iteration,  tally  the  residue  sum, 
and  compare  it  to  the  residue  from  the  first  iteration  */ 

Ressum=0 .0; 

for ( j=0; j<=J; j++) { 

for(i=0;i<=I;i++) { 

if(i==0)  Resid[j3 [i]=0.0; 
else  if(i~=I)  Resid[ j3  [i] =0 .0; 
else{ 

if(j==0)  Resid[j3[i3=  ”Pot[j3  [i3+pot[j+23  [i]+force[j3  [i3  ; 
else  if(j==J)  Resid[j3[i3=  ~pot[j] [i3+pot[j-23 [i3+force[j3  [i3 
else  Resid[j3[i3=  -pot[j3  [i3  +  (k/res [ j 3 [i3 ) * ( 

(res[j3  [i3/cax2-dresdx[j3  [i3  *0 .5/del tax)  *pot[j+13  [i3 
+  (res[j3  [i3/c3x2+dresdx[j]  [i3 *0 . 5/deltax)  *pot [  j-13  [i] 
+{res[j] [i3 /dy2-dresdy [ j 3  [i3 *0 . 5/deltay) *pot[j3  [i+13 
+(res[j3  [i3 /dy2+dresdy[j 3  [i 3 *0 . 5/deltay) *pot[j 3  [i-13) 
+force[ j  3 [i] ; 

} 

Ressum=Ressum+fabs {Resid[ j3  [i] ) ; 

} 

} 


if (cntr==0) { 

firs  tRes  =Res  simi  ; 
mec=cntr ; 

} 

Resnorm=logl0 (Ressum/ firs tRes) ; 
if (mec==intvl) { 
mec  =mec - in tvl ; 

printf  (''\ncntr%ld\t%.9f\t%.9f\t%.9f",  cntr,  Ressum, 

firstRes,  Resnorm) ; 

fprintf  (fp,  "\ncntr%ld\t%.9f\t%.9f\t%.9f",  cntr,  Ressxjm, 
^  firstRes,  Resnorm) ; 

cntr=cntr+l; 

mec=mec+l; 

if (firs tRes /Res sum>conv)  break; 


return ( 1 ) ; 


Appendix  C:  PIV  Processing  Code 


% 

%  Title:  jpbpiv3 .m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  none  (This  is  the  TOP  LEVEL) 

%  Child  subroutine (s ) :  too  many  to  list 

%  Date:  25  Mar  1997 

% 

%  This  program  creates  a  Matlab  window  (graphical  user  interface)  with  menus 
%  that  allow  PIV  xmages  to  be  read  in,  interrogation  boxes  to  be 
%  defined  and  the  correlated  using  a  cross-correlation  technique. 

%  Finally,  the  resulting  vector  field  can  be  plotted. 

%  First  a  figure  window  is  opened  and  titled.  This  window  will  then 
%  be  filled  with  all  of  the  necessary  menus, 

MainWin=l ; 
figure (MainWin) ; 

set (MainWin,  ' resize ' , ' on ' , • name ' , ’ JPBPIV3 ' , • menubar ' , ' none ' ) 

%  All  of  the  other  windows  used  are  named  and  defaulted  to  =0 

ImageWin=0; 

LTSWin=0 ; 

HistWin=0; 

PlotWin=0 ; 

VectWin=0 ; 

CorrWin=0 ; 

%  Initialize  some  of  the  interrogation  box  parameters  here  so  that 
%  they  don't  have  to  be  re-defined  with  each  new  image.  This  is 
%  especially  helpful  with  stationary  images,  as  the  window  is 
%  usually  constant. 

%  The  first  4  are  used  in  CCbox.m  the  last  3  are  used  in  CCprepplot.m 

ulxrect= [ 3 ; 
ulyrect= [ ] ; 
lrxrect=[] ; 
lryrect=  [  ]  ,- 
alpha= [ 3 ; 
xts=[3 ; 
yts=[3 ; 

% - 

%File  menu  and  its  suJbmenus: 

%  The  file  menu  permits  access  to  4  subroutines  which  perform 
%  file  I/O  type  operations.  The  subroutines  are:  CCloadim,  CCsaveim, 

%  printimjb,  &  CCcloseim.  There  is  also  a  selection  that  allows  the' 

%  user  to  do  a  save /print /and  close  all  in  a  row. 

%  The  last  menu  item  allows  an  exit  from  jp3Dpiv3  . 


File_menu=uimenu (MainWin, 'Label' , 'File  ' ) ; 

Open_sul>mrau=uimenu (File  menu, 'Label' , 'Load  .tif  File' , 'Callback' , 'fprintf ( ' 'Loading  %s  tif 
. . . \n' ' , filename) ;CCloadim; fprintf ( ' 'Done  \n\n' ' )  ' ) ; 

Save_submenu=uimenu (File_menu, ' Label ' , ' Save  All  Files ' ,  ' Callback ' , 

' fprintf ('' Saving. .. \n' ') ;CCsaveim; fprintf (' 'Done  \n\n'')  '); 

Print_submenu=uimenu(File_menu, 'Label' , 'Print  Figures' , 'Callback' , 'printimjb; fprintf ( ' 'Done  \n\n' ' ) 


SavPmtCls_siAmenu=uimenu (File_menu,  ' Label '  ,  '  Save&Print&Close ' ,  '  Callback ' ,  '  fprintf  ( '  '  Saving  \n  "  )  • 
ClosingXn^^r^M*^^  '  Saving\n'  ')  ;printimjb; fprintf  { '  'Done  PrintingXn'  ') /CCcloseim;  fprintf  ( '  'Done' 


Close_siibmenu=uimenu (File_menu, ' Label ' , ' Close ' 
deleting  variables  , . .\n' ' ) ; CCcloseim; fprintf ( ' 


'Callback',  ' fprintf ('' Closing  image  windows  and 
Done  \n\n' ' )  ' ) ; 


Exit_su33menu=uimenu  ( File_menu ,  '  Label '  ,  '  Exit ' ,  '  Callback ' , 
all ; clear; clear  global ; fprintf ( ' ' Done  \n\n ' ' )  ' ) ; 


■  fprintf ( ' 'Quitting  JPBPIV3  . . . \n' ' ) ; close 


% - 

%  Display  data  menu  and  its  suJbmenus : 

%  'The  first  menu^  item  allows  the  user  to  replot  the  PIV 
%  image  at  any  time  during  the  processing  session. 
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%  CCspotrem.m  is  used  to  remove  regions  of  glare  from  the  image 
%  so  that  they  do  not  bias  the  cross-correlator. 

%  CCbox.m  allows  the  user  to  define  the  region  which  is  then 
%  divided  up  into  interrogation  boxes  and  displayedin  LTSWin. 

%  It  helps  to  have  a  color  monitor! ! ! ! 

% - 

Display_menu=uimenu (MainWin, 'Label ' , 'Show/Box  Image' ) ; 

ShowPrs_suimenu=uimenu (Display_menu,  ’  Label '  ,  '  Show  Particles  ' ,  ' Callback' ,  '  if  (ImageWin==0) 
ImageWin=figure;else  figure (ImageWin) ;  end; set {ImageWin, ' 'name*  ' .filename) ;clg; set (gca. 

* 'position' ' . [0  0  1  1] ) ;imshow(imdata,mapimdata) ; '  ) ; 

RemSpot_submenu=uimenu(Display_jmenu. 'Label' , 'Remove  Glare  Spots' . 'Callback' . ' 

CCspotrem; fprintf ( ' 'Done\n' 

CCBoxes_submenu=uimenu{Display_menu. 'Label* . 'Define  CC  Boxes’ . 'Callback' . ’ 

CCbox; fprintf ( ' 'Done\n' 

% - 

%  Alignment  menu  is  for  rotating  piv  images  only. 

%  Double  exposures  of  the  rotating  alignment  tool 
%  are  interrogated  to  determine  the  x.y  pixel 
%  dimensions  and  then  the  center  of  rotation  in 
%  pixel  coordinates. 

%  pixmag.m  is  used  to  adjust  these  alignment  values  for 
%  the  magnification  of  the  camera  as  I  refocus  on  different 
%  planes  through  the  test  section  thickness . 

% - 

Alignment_menu=uimenu(MainWin.  'Label' ,  'Rotating  Align  ' )  ; 

Calcorr_sulxnenu=uimenu {Alignment_menu. ' Label ' . ' Correlate  Algn  Tool ' . 'Callback' ,  ' fprintf { ' 'Correlate 
sections  of  alignment  tool  image. .. \n' ') ;corrimagjb2 ; fprintf (' 'Done  with  cross,  now  do 
horizontalXn* ' ) ; cor r imag j b2 ; fprintf ( ' 'Done  with  horizontal \n’ ' ) ' ) ; 

Calcpixdim_sulxtienu=uimenu(Alignment_menu,  'Label' ,  'Calc  pixel  wid/ht'  ,  'Callback' ,  'fprintf  (  ’  'Sending 
correlated  data  to  compute  pixel  dimensions. . .\n' ' ) ;xyresol; fprintf ( ' 'Done  \n'')'); 

Crclcent_submenu=uimenu(Alignment_menu, 'Label' , 'Calc  center  of  rot' , 'Callback' ,  'fprintf ( ' 'Compute 
x,y  center  of  rotation. . . \n' ' ) ;crclcntr2 ; fprintf ( ’ ' Done  \n'')'); 

PixANDcent_submenu=uimenu(Alignment_menu,  'Label' ,  'Calc  pixdim  &  cntrrot'  ,  'Callback' , 

'  fprintf  ('' Sending  correlated  data  to  compute  pixel  dimensions ...  \n’ ')  ;xyresol ;  fprintf  (' 'Done 
\n' ' ) ; fprintf ( ' 'Compute  x,y  center  of  rotation. . .\n' ' ) ;crclcntr2 ; fprintf { ' 'Done  \n'')’); 

AdjMag_s\ibmenu=uimenu{Alignment_menu.  'Label'  ,  'Adjust  Magn  for  z/d'  ,  'Callback' ,  '  fprintf  { '  'Initiating 
magnification  adjustment. . . \n' ' ) ;pixmag; fprintf ( ' 'DoneXn' ')’); 

RpsDet_s\abmenu=uimenu{Alignment_jnenu,  'Label' ,  'Determine  rps' ,  'Callback' ,  ’  fprintf  { '  'Initiating  rps 
determination. . . \n' ' ) ;rpsdet; fprintf ( ’ 'DoneXn' ' ) ' ) ; 

% - 

%  Rotate  menu  is  for  all  processing  and  plotting  functions. 

%  CCcorrbox3,m  -  correlates  boxes  previously  defined 
%  CCrecorrbox4 . m  -  recorrelates  boxes  passes  up  by  CCcorrbox.m 
%  These  can  all  be  done  in  sequence  without  user  prompt 

%  CCredovect2 .m  -  after  cleanup  can  redo  a  single  "suspect"  vector  if  desired. 

%  CCprepplot.m  -  transfers  to  TS  ref  frame 
%  CCplot3.m  -  plots  in  TS  frame 

%  CCprepplot  and  CCplot3  can  also  be  done  in  sequence 
%  CCvectclr.m  -  creates  vector  plots  with  color  spectrum 
%  to  signify  various  levels  of  vector  magnitude. 

% - 

Rotate_menu=uimenu{MainWin, 'Label', 'Rotating  PIV  '); 

Cor rbox_submenu=uimenu (Rota te_menu, ' Label ' , ' Correlate  boxes ' , ' Callback ’ ,  ' fprintf ( ' ' Correlating 
boxes . . . \n ' ' ) ; CCcorrbox3 ; fprintf ( ' ' Done  Xn'*)'); 

Recorrbox_submenu=uimenu(Rotate_menu, 'Label' , 'Recorrelate  boxes' , 'Callback' , 

' fprintf ( ' ‘Recorrelating  boxes . . . Xn' ' ) ; CCrecorrbox4 ; fprintf ( ' 'Done  Xn'')'); 

Redol_sufc®nenu=uimenu(Rotate_menu, 'Label' , 'Redo  IVector' , 'Callback' , 

' fprintf ( ' ' Redoing . . . Xn ' ' ) ; CCredovect2 ; fprintf { ' ' Done  Xn'')’); 

Both_submenu=uimenu(Rotate_menu, 'Label' , 'Auto  Corr&ReCorr' , 'Callback' ,  ' fprintf { ' 'Correlating 
boxes . . . Xn ' ' ) ; tic ; CCcorrbox3 ; fprintf ( ' ' DoneXn ' ’ ) ; fprintf ( ' ' Recorrelating 
boxes. . .Xn' ' ) ;CCrecorrbox4 ; fprintf ( ' 'DoneXn' ' ) ; toe; fprintf ( ' 'All  DoneXn' ')'); 

Preplot_submenu=uimenu(Rotate_menu,  'Lal^el’ ,  'Prep  for  Plot'  ,  'Callback' ,  ’  fprintf  { '  'Prep  for 
plotting. . . Xn' ’ ) ; CCprepplot; fprintf ( ' 'DoneXnXn' ' ) ; '  ) ; 
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Plot_siil3menu=uimenu  (Rotate_menu/  '  Label ' ,  ’  Plot  CC  Data ' ,  '  Callback ' ,  ' 
fprintf ( ' ' Plotting . . . \n ' ' ) ; CCplotl ; fprintf ( ’ ' Done\n\n ' ' ) ; '  ) ; 

ClrPlot_subinenu=uimenu(Rotate_menu, ’Label', 'Color  Vector  Plot', 'Callback', ' 
fprintf ( ' 'Plotting. . .\n' ' ) ;CCvectclr; fprintf ( ' 'Done\n\n‘ ' ) ; '  ); 

Plot2_subinenu=uimenu(Rotate_menu, 'Label' , 'Auto  Prep&Plot’ , 'Callback' , '  fprintf { ' 'Prep  for 
plotting. . ,\n' ' ) ; CCprepplot ; fprintf ( ' 'Plotting. . .\n' ' ) ;CCplot3 ; fprintf ( ' 'Done\n\n' ' ) ; '  ) ; 


%• 

%• 

%■ 


% - 

%  Boxes  for  entering  the  path  &  file  name 
%  (Be  sure  to  only  enter  the  filename  prefix,  not 
%  the  .tif  suffix,  or  the  saved  files  will  not  work). 


uicontrol (MainWin, 'Style' , 'Frame' , ' BackgroundColor ' , [1  1  1] , 'Position' , [1  280  510  55  ]); 

uicontrol (MainWin, 'Style', 'text', 'BackgroundColor', [0.85  0.85  0.85], 'String', 'Path 
name: ', 'Position' , [  5  308  110  25  ]); 

PathName_edit=uicontrol  (MainWin,  '  Style ' ,  ’  edit ' ,  'HorizontalAlignment ' ,  '  left ' ,  '  BackgroundColor  ',[11 
1] , 'String' , ' ' , 'Position' , [  115  308  390  25  ] ,  'Callback' ,  'pathname=get (PathName_edit, ’ 'string' ' ) ; ' 

uicontrol (MainWin, ' Style ' , ’ text ' , 'BackgroundColor ',[0.85  0.85  0.85],' String ' , 'File  name 
prefix: ’, 'Position' , [  5  283  110  25  ] ) ; 

FileName_edit-uicontrol  (MainWin,  'Style' ,  'edit' ,  'HorizontalAlignment' ,  'left' ,  'BackgroundColor'  ,[11 
1] , 'String' ,'', 'Position' , [  115  283  390  25],  'Callback', 

' filename-get (FileName_edit, ’ 'string' 


% - 

%  Boxes  for  entering  Re#,  Rot#,  and  z/d  position. 


uicontrol (MainWin, 'Style' , 'Frame' , 'BackgroundColor' , [1  1  1] , 'Position' , [1  252  510  26  } ) ; 
uicontrol (MainWin, 'Style' , 'text* , 'BackgroundColor' ,[0.85  0.85  0.85] , 'String' , 'Run  Parameters* 
', 'Position' , [  5  255  140  20  ] ) ; 


uicontrol (MainWin, 'Style' , 'text' , 'BackgroundColor' , [0.85  0.85  0.85] , 'String' , 'Re#: ' , 'Position' , [  160 
255  40  20  ]  }  7 

ImAttrib_edit60=uicontrol (MainWin, 'Style' , 'edit' , 'HorizontalAlignment' , 'left' , 'BackgroundColor'  [  1 
1  1] ,  String' , ' ‘ , 'Position' , [  205  255  60  20  ] ,  'Callback' ,  ’Renum=get (IinAttrib_edit60, ' 'string' ' ) ; ' 


'Style',  'text',  'BackgroundColor',  [0.85  0.85  0.85],  'String',  'Rot#;  ',  'Position',  [ 

280  255  40  20  ]  )  ; 

ImAttrib_edit61=uicontrol  (MainWin,  'Style'  ,  'edit' ,  'HorizontalAlignment'  ,  'left' ,  'BackgroundColor'  [  1 
1  1] , 'String' 'Position' , [  325  255  60  20  ],  'Callback', 

'Rotnum=get (ImAttrib_edit61, ' 'string' ' ) ; '  ); 

uicontrol (MainWin, 'Style', 'text', 'BackgroundColor', [0.85  0.85  0.85], 'String', 'z/d:', 'Position', [  400 
255  40  20  ]  )  / 

IinAttrib_edit62=uicontrol  (MainWin,  •  Style '  ,  '  edit ' ,  '  HorizontalAlignment '  ,  '  left '  ,  '  BackgroundColor '  [  1 
1  1] , 'String' ,'', 'Position' , [  445  255  60  20  ],  'Callback', 

• zoverdh=get (ImAttrib_edit62 , ' ' string ' ' ) ; '  ) ; 


% - 

%  Boxes  for  entering  the  pairing  parameters  used  by 
%  CCcorrbox.m  Parameters  are  self-explanatory. 

% - 

uicontrol (MainWin, 'Style' , 'Frame' , 'BackgroundColor' , [1  1  1] , 'Position' , [1  75  250  165  ] ) ; 

uicontrol (MainWin, 'Style', 'text', 'BackgroundColor', [0.85  0.85  0.85], 'String', ' Piv 
Parameters ', 'Position' , [  5  218  240  20  ]); 

uicontrol (MainWin, ' Style ' , ' text ' , ' BackgroundColor ',[0.85  0.85  0.85],' String ' , ' Pixel  Width 
[urn] ', 'Position' , [  5  198  130  20]); 

ImAttrib_editl4=uicontrol  (MainWin,  '  Style '  ,  '  edit ' ,  '  BackgroundColor  ',[11 

1] , 'String' 'HorizontalAlignment' , 'left' , 'Position' , [  135  198  110  20  ],  'Callback' 

'pixel_width=str2num(get(ImAttrib_editl4,  '  'string'  ')),*'); 

uicontrol (MainWin, ' Style ' , ' text ' , ' BackgroundColor ',[0.85  0.85  0,85],' String ' . ' Pixel  Heiaht 
[urn] ', 'Position' , [  5  178  130  20  ] ) ;  ^ 

ImAttrib_editl5=uicontrol (MainWin, 'Style' , 'edit' , 'BackgroundColor' , [1  1 
1] , 'String' ,'', 'HorizontalAlignment left’ , 'Position' , [  135  178  110  20  ],  'Callback' 
'pixel_height=str2num(get {ImAttrib_editl5, ' 'string' '));’); 
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uicontroKMainWin, 'Style* , 'text' , 'BackgroundColor' ,  [0.85  0.85  0 . 85]  String  ‘  '  Pulse  Interval 
[us] 'Position' , [  5  158  130  20  ]); 

IinAttrib_edit22=uicontrol (MainWin, 'Style' , 'edit' , ' BackgroundColor ' ,[11 

1] , 'String' 'HorizontalAlignment 'left' , 'Position' , [  135  158  110  20  ],  'Callback', 

'pulse_dt=str2nuin{get(ImAttrib_edit22,  '  'string' 


uicontroKMainWin, 'Style', 'text', 'BackgroundColor', [0.85  0.85  0 . 85] ,' String ', 'Min  Velocity 
[m/s] ', 'Position', [  5  138  130  20]); 

IinAttrib_edit23=uicontrol (MainWin, ' Style ' , ' edit ' , ' BackgroundColor ' , [1  1 

1] , 'String' 'HorizontalAlignment ', 'left* , 'Position' ,  [  135  138  110  20  ],  'Callback', 

'min_velocity=str2nuin(get  (IinAttrib_edit23,  '  'string' 


uicontrol (MainWin, *  Style ' , ' text ' , ' BackgroundColor ',[0.85  0.85  0.85],' String ' , ' Max  Velocity 
[m/s] ', 'Position' , [  5  118  130  20  ]); 

ImAttrib_edit2 4 =uicontrol (MainWin, 'Style' , 'edit' ,  ' Backgro\mdColor ' , [1  1 

1] , 'String* 'HorizontalAlignment' , 'left' , 'Position' , [  135  118  110  20  ],  'Callback*, 

'max_velocity=str2num(get(ImAttrib_edit24,  '  'string'  '));'); 


uicontrol  (MainWin,  *  Style ' ,  '  text ' ,  *  BackgroimdColor  ',[0.85  0.85  0.85],'  String ' ,  '  Min  Angle 
[deg] ', 'Position' , [  5  98  130  20]); 

ImAttrib_edit25=uicontrol (MainWin, 'Style' , 'edit' , 'BackgroundColor' ,[11 

1] , 'String' 'HorizontalAlignment ',' left' , 'Position* , [  135  98  110  20],  'Callback', 

'min_angle=str2num(get (IinAttrib_edit25,  '  'string'  '));*); 


uicontrol (MainWin, ' Style ' , ' text  * , ' BackgroundColor ’,[0.85  0.85  0.85],' String ’ , *  Max  angle 
[deg] ', 'Position* , [  5  78  130  20  ] ) ; 

ImAttrib_edit2 6  =ui control  (MainWin,  'Style* ,  'edit* ,  'BackgroundColor'  ,[11 

1] , 'String' 'HorizontalAlignment' , 'left* , 'Position' , [  135  78  110  20  ],  'Callback', 

*max_angle=str2num(get (ImAttrib_edit26,  '  'string*  '));'); 


% - 

%  Boxes  for  entering  the  interrogation  box  dimensions  used  by 
%  CCbox.m: 

%  box_width  -  width  of  boxes  used  for  cross-correlation 
%  box_height  -  height  of  boxes  used  for  cross-correlation 
%  (These  were  designed  for  just  odd  integers,  though  it  may  work 
%  fine  with  even  integers  too.) 

% - 

uicontrol (MainWin, 'Style' , 'Frame' , 'BackgroundColor' , [1  1  1] , 'Position' , [1  5  250  65  ]); 

uicontrol (MainWin, 'Style* , 'text* , 'BackgroundColor' , [0.85  0.85  0.85] , 'String' , 'Box  Dimensions  (odd 
pixels  only) ' , 'Position' , [  5  48  240  20  ] ) ; 


uicontrol (MainWin, ' Style ' , ' text ' , ' BackgroimdColor ',[0.85  0.85  0.85],' String ' , ' Box  Width 
[pix] ', 'Position' , [  5  28  130  20  ]); 

IinAttrib_edit31=uicontrol (MainWin, ' Style ' , ' edit ' , ' BackgroundColor ',[11 

1] , 'String' ,'', 'HorizontalAlignment' , 'left ', 'Position' , [135  28  110  20  ],  'Callback', 

’box_width=str2num(get (IinAttrib_edit31,  '  'string'  '));*); 


uicontrol (MainWin, 'Style' , 'text' , 'BackgroimdColor' , [0.85  0.85  0.85] , 'String' , 'Box  Height 
[pix] 'Position' , [  5  8  130  20  ]); 

ImAttrib_edit32=uicontrol (MainWin, 'Style* , 'edit' , 'BackgroundColor' ,[11 

1] , 'String' 'HorizontalAlignment' , 'left ', 'Position' , [135  8  110  20  ],  'Callback', 

'box_height=str2niim(get  (ImAttrib_edit32,  ’  'string'  '));'); 
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% 


%  Boxes  for  entering  the  cleanup  parameter  used 
%  by  CCcleanup2 .m.  'Reduce'  is  the  amount  the  min/max 
%  velocity  and  angle  ranges  should  be  reduced  on  the 
%  cleanup  pass  through  the  boxes. 

% - 

uicontrol (MainWin, 'Style' , 'Frame' , ' BackgroundColor ' , [1  1  1] , 'Position' , [261  205  250  45  ] ) ; 


uicontrol  (MainWin,  '  Style ' ,  '  text ' ,  'BackgroiindColor  ',[0.85  0.85  0  85] 
Cleanup' , 'Position' , [  265  228  240  20  ]); 


'  String ' , ' Parameters  for 


uicontrol (MainWin, ' Style ' , ' text ' , ' BackgroiindColor ',[0.85  0.85  0,85],' Strina 
', 'Position' , [  265  208  130  20  ] ) ;  ^ 


'Recorr  Threshold 


I^ttr ib_edit 64 -uicontrol (MainWin,  'Style' ,  'edit' ,  'BackgroundColor' ,  [1  1 
1] , 'String' 'HorizontalAlignment' ,' left ', 'Position' , [  395  208  110  20  ] 
’reduce=str2n\am(get  (ImAttrib_edit64,  '  ’ string’ 


'Callback' , 


% - 

%  Boxes  for  entering  the  parameters  used  by 
%  rotating  piv. 

%  Parameters  are  self-explanatory. 

% - 

uicontrol (MainWin,  'Style' ,  'Frame' ,  'BackgroundColor' 


[1  1  1] , 'Position' , [261  55  250  145  ] ) ; 


uicontrol (MainWin, ' Style ' , ' text ' , ' BackgroundColor ',[0.85  0.85  0  85] 
Parameters' , 'Position' , [  265  178  240  20  ] ) ; 


'String', 'Rotating 


tos?Vpisit?onv"2%'®^  0.85], -String-,  •Rotation  freg 

ImAttrib^edit41=ui control (MainWin, 'Style' , 'edit* , 'BackgroundColor' , [1  1 
1] , 'String' 'HorizontalAlignment ',' left *, 'Position' ,  [  395  158  110  20  ],  'Callback' 
'rotfreq_rps=str2num(get(ImAttrib__edit41,  '  'string'  '));'); 

uicontrol (MainWin, ' Style ' , ' text ' , ' BackgroundColor ',[0.85  0.85  0.85],' String ' , • Cntr  of  Rot-X 
pixel' , 'Position' ,  [  265  138  130  20  ]  ) ;  y  / 

IinAttrib_edit42=uicontrol  (MainWin,  'Style'  ,  'edit' ,  'BackgroundColor'  ,  (1  1 
1] , 'String' , ' ' , 'HorizontalAlignment' , 'left' , 'Position' , [  395  138  110  20  ] ,  'Callback* 

' xcntr_pix=str2num (get  ( IinAttrib_edit42 ,  '  '  string 

uicontrol (MainWin, 'Style' , 'text' , 'BackgroundColor' , [0.85  0.85  0.85] , 'String' , 'Cntr  of  Rot-Y 
pixel' , 'Position', [  265  118  130  20  ] )  ; 

ImAttrib_edit43=uicontrol (MainWin, 'Style' , 'edit' , 'BackgroundColor' ,[11 

1], 'String', '•, 'HorizontalAlignment', 'left',  'Position', [  395  118  110  20  ]  'Callback' 

’ycntr_pix=str2num(get (ImAttrib_edit43, ' 'string' '));'); 

uicontrol (MainWin, 'Style' , 'text' , 'BackgroundColor' , [0.85  0.85  0.85] , 'String' , 'Algn  cross 
rad[um] ', 'Position' ,  [  265  98  130  20  ] )  ,-  y  /  y 

ImAttrib_edit44=uicontrol (MainWin, 'Style' , 'edit* , 'BackgroundColor' , [1  1 
1], 'String', '', 'HorizontalAlignment', 'left', 'Position', [  395  98  110  20  ],  'Callback' 
'rad_cross=str2nimn(get (ImAttrib_edit44, ' 'string' '));');  ^ 

uicontrol (MainWin, ' Style ' , ' text ' , • BackgroundColor ',[0.85  0.85  0.85],' String ' , ' Algn  wire 
dist [urn] ', 'Position' , [  265  78  130  20  ] ) ;  y  /  y  e 

IinAttrib_edit45=uicontrol (MainWin, 'Style' , 'edit* , 'BackgroundColor' ,[11 
1], 'String', 'HorizontalAlignment', 'left', 'Position', [  395  78  110  20  ],  'Callback' 

' dist_hwire=str2num (get (ImAttrib_edit45 , ' ' string 

0.85] , -String- , 'Car^Trav  Mot 


IinAttrib_edit46-uiccpntrol  (MainWin,  'Style'  ,  'edit' ,  'BackgroundColor*  ,  [1  1 
1] , 'String' ,•', 'HorizontalAlignment ', 'left' , 'Position' , [  395  58  110  20  ] 
' cammotion=str2num(get (ImAttrib_edit46, ' ' string' '));'); 


'Callback' , 


% - 

%  Boxes  for  entering  the  scaling  factor  for  velocity  vectors 

uicontrol (MainWin, 'Style' , 'Frame' , 'BackgroundColor' , [1  1  1] , 'Position' ,  [261  5  250  45  ]  )  ; 


163 


uicontrol  (MainWin,  '  Style '  ,  '  text  ’ ,  '  BackgroiandColor  ',[0.85  0.85-0.85],'  String '  ,  '  Display 
Parameters Position' , [  265  28  240  20  ]); 

uicontrol (MainWin, ' Style ’ , ' text ' , ' BackgroundColor ',[0.85  0.85  0.85],' String ' , ' Scale  of  Vel 
Vect Position' , [  265  8  130  20  ]); 

IinAttrib_edit51=uicontrol (MainWin, ' Style ' , ' edit ' , ' BackgroundColor ' , [1  1 

1] , 'String' , ' ' , 'HorizontalAlignment ' , 'left' , 'Position' , [  395  8  110  20  ] ,  'Callback' , 

’  scale=str2n‘um{get  {IinAttrib_edit51,  '  'string'  '));'); 


% 

%  Title:  CCloadim.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  jphpiv3.m 

%  Child  stibroutine ( s )  :  tiffread.m,  imshow.m 

%  Date:  4  Mar  1997 

% 

%  Essentially,  CCloadim.m  loads  in  the  image  which  must 
%  be  in  the  TIP  format  (tagged  image  file) .  If  the  file 
%  cannot  be  read,  try  resaving  it  using  "xv" . 

%  This  somehow  decompresses  .tif  files  into  a  format 
%  readable  by  Matlab's  "tiffread"  toolbox.  After  loading 
%  in  the  image,  any  existing  files  are  also  read  in. 

% 

%  tiffread.m  is  one  of  Matlab's  Image  Processing  Toolbox 
%  programs.  It  basically  produces  a  2D  matrix  of  y-by-x 
%  pixels  (imdata),  each  entry  of  which  is  a  number  from 
%  8  to  256  (8  bit) .  The  numbers  8  to  256  correspond  to 
%  numbers  in  the  vector  mapimdata,  which  produces  the 
%  corresponding  color  in  RGB  format.  256  is  bright  white 
%  and  8  is  dark  black  for  the  monochromatic  images 
%  which  are  typically  used  here. 

[imdata, mapimdata] =tiffread( [pathname, ' / ' , filename] ) ; 

%  Once  the  image  is  loaded,  it  is  displayed  using 
%  imshow.m  (another  IP  toolbox)  in  the  figure  entitled 
%  ImageWin. 

if  (ImageWin==0) 

ImageWin=  figure ; 
else  figure  (ImageWin)  ; 
end; 

set  (ImageWin,  'name' ,  filename)  ; 
clg; 

set(gca,  'position' , [0  0  1  1]); 
imshow ( imdata ,  mapimdata)  ; 

%  The  dimensions  of  the  pixel  space  are  computed,  and 
%  the  mean  intensity  value  is  calculated. 

[msizeimdata  ,nsizeimdata]=size (imdata) ; 
absmean^mean  (mean  ( imdata ) )  ; 

fprintf  ( 'Mean  gray  value:  %f  \n\n’ ,absmean)  ; 

%  Default  values  set  for  parameters  of  interest 

rotf req_rps= [ ] ; 
xcntr_pix= [ ] ; 
ycntr_pix= [ ] ; 
pixel_width= [ ] ; 
pixel_height= [ ] ; 
pulse_dt=^  [  ]  ; 
min_velocity= [ ] ; 
max_v€locity= [ ] ; 
min_angle- [ ] ; 
max_angle=:  [  ]  ; 
box_width= [ ] ; 
box_height= [ ] ; 
cammotion= [ ] ; 
reduce= [ ] ; 
scale= [ ] ; 

Renum= [ ] ; 

Rotnum=  [  ] ; 
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zoverc3h=  [  ]  ; 

xbox= [ ] ; 
ybox=  t ] ; 


difx= [] ; 
dify=  I  ] ; 
ang= [ ] ; 
vel= [ 3 ; 
goodbox= [ ] ; 

difeps=[] ; 
difdel=[ 3 ; 
epsbox= [ ] ; 
delbox=:  [  ] ; 
TSang= [ ] ; 
TSvel=[] ; 


corrxy= [ ] ; 
lftcrossx=[ ] ; 
lftcrossy=[] ; 
vfact= [ ] ; 
hfact= [] ; 
ratfact=[] ; 
rotcentx= [ ] ; 
rotcenty= [ ] ; 


%  already  a  .mat  file,  it  is  loaded  in.  Before 

t  ^  in  an  image,  it‘s  wise  to  copy  an  old  .mat  file 

%  into  a  .mat  file  of  the  current  filename  to  save  time. 


^  [pathname,  '  /  ' ,  filename,  '  .mat '  ] ,  '  r ' )  • 
if  fid>=0  ' ' 

f close (fid) ; 

load  { [pathname, ' / ' , filename, ' .mat ' ] ) ; 
fprintf ( ‘Loading  * .mat  file  . . . \n ' ) ; 


set (ImAttrib_editl4, 
set { ImAttrib^edi tl5 , 
set (ImAttrib_edit22 , 
set  (IniAttrib_edit23 , 
set ( ImAttrib_edit24 , 
set ( ImAttrib_edit25 , 
set ( ImAttr ib_edit2  6 , 


'string'  /num2str (pixel_width) )  ; 

'  string ' ,  num2str  (pixel_height ) )  ; 
'  string '  ,  num2str  (pulse_dt) )  ; 
'string'  ,num2str  (min__velocity) )  ; 
'  string ' ,  num2str  (max^velocity) )  ; 
'  string '  ,nu[n2str  (min_angle) )  ; 
•string'  ,num2str  (max_angle) )  ; 


set ( ImAttr ib_edit3 1 , 
set (ImAttrib_edit32 , 


string  • ,  num2str  (box_width) ) ; 
string*  ,nuiii2str  (box_height) )  ; 


set  (ImAttrib_edit64,  'string*  /num2str  (reduce) )  ; 


set (ImAttrib_edit41, 
set (ImAttrib_edit42 , 
set ( ImAttrib_edit43 , 
set { ImAttr ib_edit4 4 , 
set (ImAttr ib_edit4 5 , 
set ( ImAttr ib_edit4 6, 


•  string ’ ,num2str (rotfreq_rps) ) ; 
'  string  *  ,num2str  (xcntr_pix) )  ; 

'  string '  ,  nuin2str  (ycntr_pix)  )  ; 

'  string  * ,  nuin2str  (rad_cross ) )  ; 
•string* ,num2str (dist^hwire) ) ; 
•string*  ,n\am2str (cammotion) )  ; 


set ( ImAttr ib_edit51, 'string* ,num2str (scale) ) ; 


set  (IinAttrib_edit60 
set  ( ImAttr  ib_edit  61 
set (ImAttr ib_edit 62 


,  •string’  , num2str (Renum)  )  ; 
,  'string*  ,nuin2str  (Rotnum) ) 
/  'string*  ,nuin2str (zoverdh) 


)  ; 


else 

fprintf  ( *No 

end 


*.mat  file  available!! 


\n* )  ; 


%  Before  looking  for  other  files,  find  out  if  they  exist. 

iris^ty(contr^  related  image  processing  files?  y/n  <n> 

cont= ' n  * ; 

end 

if  cont==*y* 


%  If  it  exists,  read  in  the  .box  file  containing  the 
%  interrogation  box  center  indices . 


[pathname,  '  /  ' ,  filename 

if  fid<0 


, box ' ] ,  ' r  * ) ; 
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fprintf{'No  *.box  file  available  I  1 \n' ) ; 

else 

f close (fid); 

load  { [pathname, ' / ' , filename, ' .box ' ] ) ; 
eval ( [ ' ulxrect= •  filename  '  (1) ; ' ] ) 
eval ( [ ' ulyrect= '  filename  '  (2 ) ; ' ] ) 
eval ( [ ' lrxrect= '  filename  '  ( 3 ) ;  '  ] ) 
eval ( [ ■ lryrect= '  filename  '(4);']) 
eval ( [ ' limx= '  filename  '  (5) ; ' ] ) 
eval { [ ‘ limy= '  filename  '  ( 6 ) ; ' ] ) 
for  k=l:liinx 

eval  { [ '3dDox(k)  = '  filename  ’{6+k);']) 

end 

for  j=l:limy 

eval ( [ 'ybox{ j ) ='  filename  ' (6+ j+limx) ; ' ] ) 

end 

fprintf { ’Loading  * .box  file  . . . \n' ) ; 
eval ( [ ' clear  '  filename] ) 

end 

%  If  it  exists,  read  in  the  .cor  file  which  contains  the 
%  angle  and  velocity  vectors  for  each  box  along  with  the 
%  status  in  goodbox. 

fid=fopen( [pathname, ‘ / ' , filename, ' .cor' ] ,  'r ' ) ; 
if  fid<0 

fprintf  { 'No  *  .cor  file  available! !  \n' )  ; 

else 

fclose{fid)  ; 

load  { [pathname,  '  /  '  ,  filename,  ’  .cor'  ] )  ; 
for  k=l : length (xbox) 

for  j=l: length (ybox) 

eval( [ 'difx{ j ,k)= '  filename  ' ( ( (k-1) *length(ybox) +j ) , 1) ; ’ ] ) 
eval([’dify(j,k)='  filename  ' { ( (k-1) *length (ybox) +j ) , 2 ) ; ' ] ) 
eval( [ •ang{j,k)='  filename  ’ ( ( (k-1) *length(ybox) +j ) , 3) ; ’ ] ) 
eval( [ 'vel(j,k)='  filename  ' ( ( (k-1) *length{ybox) +j ) , 4) ; ' ] ) 
eval ([ 'goodbox (j,k)='  filename  ' ( ( (k-1) *length(ybox) +j ) , 5) ; ’ ] ) 

end 

end 

fprintf ( ' Loading  * .cor  file  . . . \n' ) ; 
eval ( [ ' clear  '  filename] ) 

end 

%  If  it  exists,  read  in  .pit  which  contains  all  the  data 
%  used  for  plotting. 

fid=fopen( [pathname, ’ /' , filename, '  .pit' ] ,  'r' ) ; 
if  fid<0 

fprintf ('No  *,plt  file  available !! \n' ) ; 

else 

f close (fid) ; 

load  ( [pathname,  '  /  ' ,  filename,  '  .pit  ’  ] )  ; 
eval ( [ • alpha= '  filename  '(1,1);’]) 
eval(['xts='  filename  ’(1,2);']) 
eval ( [ ’yts=  *  filename  ’(1,3);']) 

[mdat,ndat] =size (eval (filename) ) ; 

eval ( [ 'datdum= '  filename  ' (2 ;mdat, :);']) 

for  k=l: length (xbox) 

for  j=l : length (ybox) 

difeps(j,k)=datdum( ( (k-1) *length (ybox) +j ), 1) ; 
dif del (j , k) =datdum ( ( (k-1 ) *length (ybox) +j),2); 
delbox(j ,k)=datdum( ( (k-1) *length(ybox) + j ),3); 
epsboxij ,k)=datdum( ( (k-1) ^length (ybox) +j ) ,4) ; 

TSang(  j  ,k)  -63Ltd\m{  ( (k-1)  *length (ybox)  +  j  )  ,  5)  ; 

TSvel{j,k)  =datdum(  ( (k-1)  *length  (ybox) +j  )  ,6)  ; 

end 

end 

fprintf ( ' Loading  * .pit  file  . . . \n ' ) ; 
eval ( [ 'clear  '  filename] ) 
clear  datdum 

end 

%  Finally,  if  this  is  an  alignment  image,  there  will  be  an 
%  .alg  file  with  the  alignment  data. 

fid=fopen( [pathname, ' / ' , filename, ' .alg' ] ,  'r' ) ; 
if  fid<0 

fprintf ('No  *.alg  file  available! 1 \n' ) ; 

else 

fclose(fid) ; 

load  ( [pathname, ’ / ’ , filename, ' .alg ' ] ) ; 
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[malg.nalg]  =si2e  (eval  (filename) )  ; 
eval ( [ ’ corrxy= ’  filename  ’  (1:2,1:2) ; ■ ] ) 
if  (malg>=3) 

eval( [ 'lftcrossx='  filename  '(S,!);']) 
eval( [ 'lftcrossy='  filename  '(3,2);']) 

end 

if  (malg>=4) 

eval ( [ ' vf act= '  filename  '(4,1);']) 
eval(  [ 'hfactr:'  filename  '(4,2);']) 

end 

if  (malg>=5) 

eval ( [ • rotcentx= '  filename  '(5,1);']) 
eval ( [ ' rotcenty=  *  filename  '(5,2);’]) 

end 

eval ( [ ' clear  '  filename] ) 

fprintf  ( ■  Loading  * . alg  file  .  .  .  \n ' )  ,- 

end 

end 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


Title:  CCsaveim.m 
Author:  Jeffrey  Sons 
Parent  program:  jpbpiv3  .m 
Child  subroutine ( s ) ; 

Date:  14  Nov  96 

This  program  saves  any  data  generated  while  running  the  master 
program  entitled  jpbpiv3.m: 

•box  saves  box  and  rectangle  coordinates  (from  CCbox.m) 

.cor  saves  velocity  data  in  image  ref  frame  (from  CCcorrbox.m) 

.pit  saves  velocity  data  in  TS  ref  frame  (from  CCplot.m) 

.mat  saves  the  front  panel  settings 

.alg  saves  parameters  from  rotating  alignment  tool  images 

The  .mat  file  is  generated  automatically.  All  the  other  files  are  only 
generated  if  the  corresponding  analysis  actually  took  place  during  the 
session. 


if  xbox  ~=[] 

fprintf ( ' \nSaving  * .box  file  ...  \n' ) 

eval([  ' fid=fopen( ,pathname, '/', filename, ' .box' ' ,  • 'w' ' )  •  *  ])• 

fprintf (fid, ' %d\n' ,ulxrect) ; 

fprintf (fid, '%d\n' ,ulyrect) ; 

fprintf (fid, '%d\n' ,lrxrect) ; 

fprintf (fid, ' %d\n' , Iryrect) ; 

fprintf  (fid,  '  %d\n' ,  length  (xbox)  )  ; 

fprintf  ( f  id,  '  %d\n '  ,  length  (ybox)  )  ; 

fprintf  ( fid,  '  %d\n ' ,  xbox '  )  ; 

fprintf  (fid,  *%d\n'  ,ybox'  )  ; 

f close (fid) ; 

if  difx~=[] 

fprintf ( ' Saving  * . cor  file  ...  \n ' ) 

eval ( [  ' fid=fopen( ' ' ' , pathname, ' / ' , filename, ' .cor '  * ,  ' ' w' ’ ) ;  '  ] )  ; 

duml= [ ] ; 
dum2= [] ; 
dum3=  []  ; 
dum4=  [  ]  ; 
dum5= [ ] ; 

for  k=l : length (xbox) 

for  j  =1 : length (ybox) 

d\ml=  [duml  ;difx  ( j  ,  k)  ]  ; 
duin2=[d\Jin2;dify(j,k)  ]  ; 
dum3=  [dum3 ; ang ( j ,  k)  ]  ; 
dum4=  [dum4 ; vel  ( j  ,  k)  ]  ; 
dum5=  [dum5 ;  goodbox  ( j  ,  k)  ]  ; 

end 

end 


all=  [duml  *  ;  dum2  '  ;  dum3  *  ;  dum4  '  ;  dum5  '  ]  ; 
fprintf (fid, ’%8. 4 f  %8.4f  %8.4f  %8.4f  %d\n',all); 
fclose(fid) ; 

end 


if  difeps~=[] 

fprintf ( 'Saving  *.plt  file  ...  \n' ) 
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eval ( [  ' f id=fopen( ' ' ' ^pathname/ ' / ' , filename, ' .pit ' ’ ,  ' 'w' ' ) ;  '  ] ) ; 


duml=  [  ] ; 
duin2=[]  ; 
d'um3=  []  ; 
dum4= [ ] ; 
dum5=  [  ]  ; 
dum6=  E ] ; 
duml  (1)  =alpha; 
duin2  { 1 )  =xts  7 
dum3 { 1 ) =y ts ; 
dum4(l)=0; 
dum5  ( 1 ) =0 ; 
d\am6(l)=0; 

for  k=l : length (xbox) 

for  3=1: length (ybox) 

duml= [duml ;difeps ( j , k) ] ; 
duin2=[duin2  ;difdel{j  ,k)  ]  ; 
dum3=  [dum3  ;  delbox  { j  ,  k)  ] ; 
dum4=  [ dum4 ; epsbox  ( j  ,  k)  ]  ; 
dum5=  [diimS  ;TSang ( j  ,  k)  ]  ; 
dum6=  [d\am6 ;  TSvel  ( j  ,  k)  ]  ; 

end 

end 

all= [duml ' ;  dum2 ' ;  dum3 ' ;  dum4 ' ;  dum5 ' ;  dum6 ' ] ; 
fprintf (fid, '%8.4f  %8.4f  %8.4f  %8.4f  %8.4f  %8 .4f \n' , all) ; 
fclose(fid) ; 

end 

end 

if  corrxy~=[] 

fprintf ( 'Saving  *.alg  file  ...  \n' ) 

eval{[  ' fid=fopen( ,pathname, filename, ' .alg' ' ,  ' 'w' ' )  ;  '  ]); 
fprintf ( fid, ' %8 . 4f  %8 . 4f \n ' , corrxy  * ) ; 
if  lftcrossx'-=  [  ] 

fprintf ( fid, ' %8 . 4f  %8 . 4f \n ' , If tcrossx, If tcrossy) ; 
end 

if  vfact-'=[3 

fprintf (fid, '%8.4f  %8 .4f\n' ,vfact,hfact) ; 
end 

if  rotcentx-'=  [  ] 

fprintf (fid, '%8,4f  %8.4f\n' ,rotcentx, rotcenty) ; 
end 

f close (fid) ; 
clear  dum 
end 

fprintf ( ' Saving  * .mat  file  ...  \n ' ) 

currdir=pwd; 

eval ( [ ' cd  ' , pathname  3 ) ; 

eval{['save  filename,  '  pixel_width  pixel_height  pulse_dt  min_velocity  max_velocity  min_angle 
max_angle  box_width  box_height  reduce  rotfreq_rps  xcntr_pix  ycntr_pix  rad_cross  dist_hwire  cammotion 
scale  Renum  Rotnum  zoverdh '  3 ) ; 
eval  ( [ '  cd  ' ,  ciorrdir] )  ; 


% 

%  Title:  CCspotrem.m 

%  Author:  Jeffrey  Sons 

%  Parent  program:  3'pbpiv3.m 

%  Child  s\ibroutine (s)  :  ginputc.m 

%  Date:  4  Mar  1997 

% 

%  This  program  just  allows  the  user  to  remove  glare  spots 
%  from  PIV  images  to  make  them  easier  to  process. 

%  There  must  be  an  image  available  to  proceed. 

if  ( IinageWin==0 ) 

fprintf ( 'No  image  available . . . \n ' ) ; 

else 

%  Select  the  region  to  remove 
figure (ImageWin) ; 

fprintf ( 'Make  a  box  around  the  region  you  wish  to  removeXn') ; 
fprintf ('by  mouse  clicking  the  upper-left  and  lower-right\n'); 
fprintf ( 'of  the  region:  \n' ) ; 
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fprintf {' Click  outside  the  image  region  to  finish  entries . \n ’) ; 

%  Put  in  a  while  loop  to  allow  multiple  removals 

lim=20; 
for  xx=l:lim 

[ulxrem, ulyrem] =ginput { 1 ) ; 

if  (ulxrem<l  |  ulyrem<l  |  ulxrem>nsizeimdata  I  ulyrem>msizeimdata) 
break 

end 

[  Irxrem,  Iryrem]  =ginput  ( 1)  ; 

if  {lrxrem<l  |  lryrem<l  |  lrxrem>nsizeimdata  |  lryrem>msizeimdata) 
break 

end 

ulxrem=round{ulxrem)  ; 
ulyrem=:round(ulyrem)  ; 
lrxrem=round  ( Irxrem)  ; 
lryrem=round  ( Iryrem)  ; 
remwid=lrxrem‘-ulxrem+l ; 
reinhght=lryrem-ulyrem+l  ; 

%  Set  the  intensity  of  this  region  to  the  background  value 

imdata (ulyrem:  Iryrem, ulxrem:  Irxrem)  =absmean*ones  (remhght ,  remwid)  ; 
fprintf  ( 'Removed  spot  #%d  . .  .next?\n'  ,xx)  ; 

end 

%  Display  the  modified  image 

set  ( ImageWin,  'name ' ,  f ilen^e)  ; 
clg; 

set(gca,  'position' , [0  0  1  1] ) ; 
imshow  ( imdata ,  mapimdata )  ; 


end 


Title:  corriinagjb2  .m 
Author:  Jeffrey  Eons 
Parent  program:  jpbpivS.m 

Child  subroutine (s) :  descend. m,  ginputc.m,  corrmap.m,  centroidf it .m 
Date:  4  Mar  1997 

This  program  is  used  to  obtained  the  necessary  parameters 
for  particle  "derotation"  in  rotating  PIV  picture  analysis. 

Essentially,  an  image  with  a  double  exposure  of  a  rotating 
alignment  tool  is  processed  for  certain  pixel  distances . 

The  alignment  tool  currently  used  has  2  horizontal  wires 
separated  by  a  distance,  dist_hwire,  set  in  jpbpivS  parameters 
list.  Also,  between  these  two  wires  is  a  pair  of  crossed 
wires . 

The  2  horizontal  wires  give  a  distance  reference  in  the 
vertical  (y)  direction,  and  the  double  exposure  of  the  cross 
provides  an  excellent  image  for  measuring  the  distance  of 
of  rotation.  corrimagjb2 .m  makes  both  of  these  pixel 
measurements  using  an  image  correlation. 

%  To  use  corrimagjb2.m,  there  must  be  an  image  already  loaded  into 
%  ImageWin  using  CCloadim.m. 

if  ImageWin==0 

fprintf (' ERROR:  no  current  ImageWin  to  process ... load  imagel\n'); 

else 

fprintf ( ■ \nUsing  ImageWin  from  %s . . . \n' , filename) ; 
figure (ImageWin) ; 

%  Determine  Image  Size  (image  data  is  found  in  imdata  from  CCloadim.m) 
[mfull,nfull] =size (imdata) ; 

%  The  analysis  is  slightly  different  for  correlating  the  horiz  wires 
%  and  the  cross,  so  define  which  it  is... 

corrnum=0 ; 

while  (cormum~=l  &  cormum~=2) 

cormum=input (■  Correlating  cross  (1)  or  horizontal  wires  (2)?  •); 
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end 

%  Identify  a  finite  region  in  the  large  .tif  file  which  the  pattern 
%  to  be  identified  will  be  correlated  into.  This  region  must  be 
%  larger  than  the  pattern  region. 

fprintf  ( '  \nUse  GEl'JEROUS  perimeter  to  define  1st  region.  .  .  ' )  ; 

fprintf  {  ' \nClick  the  mouse  on  the  upper  left  and  lower  right  comersXn'); 

if  cormum==l 

fprintf ('of  the  left  cross  in  the  imageXn'); 

else 

fprintf ('of  the  upper  horizontal  wire  in  the  imageXn’); 

end 

%  ginputc.m  is  used  to  input  the  corners  of  the  region.  It  only 
%  accepts  2  mouse  inputs. 

[comerx,  comery]  =ginputc  ( 2 )  ; 

%  'The  input  needs  to  be  upper  left  comer  then  lower  right  comer, 

%  if  it  wasn't  done  this  way,  then  flip  the  two  points. 

if  ( cornerx  ( 1 )  <comerx  ( 2 ) ) 
ulx=round ( cornerx ( 1 ) ) ; 
uly=round  ( comery  (1)); 
lrx=:ro\ind(comerx(2) )  ; 
lry=round  ( comery  ( 2 ) )  ; 

else 

ulx=round ( cornerx ( 2 ) ) ; 
uly=round  ( comery  ( 2 ) )  ; 
lrx=round ( cornerx ( 1 ) ) ; 
lry=ro-und  ( comery  ( 1 )  )  ; 

end 

%  Assemble  the  matrix  of  the  selected  region  #1 
imdatareg= [ ] ; 

imdatareg=imdata (uly : Iry , ulx : Irx) ; 

[mreg,nreg] =size (imdatareg) ; 

%  Select  pattern  region  within  the  large  tif  file  that  will  be 
%  correlated  into  region  #1  identified  above. 

figure (ImageWin) ; 

fprintf ( '\nUse  SMALLER  perimeter  to  define  2nd  region. . . ' ) ; 

fprintf  { 'Click  the  mouse  on  the  upper  left  and  lower  right  comersXn'),- 

if  cormum==l 

fprintf  ('of  the  right  cross  in  the  imageXn'),- 

else 

fprintf ('of  the  lower  horizontal  wire  in  the  imageXn'); 

end 

tpatregx, patregy ] =g input c ( 2 ) ; 

if  (cornerx  (l)<come2rx  (2) ) 

xstpatt=roimd(patregx(l) )  ; 
ystpatt-roxmd  (patregy  (1) )  ; 
xendpatt=round (patregx (2 ) )  ; 
yenct>att=round  (patregy  ( 2 ) )  ; 
else 

xstpatt=round (patregx (2) ) ; 
ystpatt=round (patregy (2) ) ; 
xendpatt=round (patregx (1) ) ; 
yendpatt=ro\and(patregy  (1) )  ; 

end 

pattern= [ ] ; 

pattem=imdata  (ystpatt  ryendpatt ,  xstpatt :  xendpatt )  ; 

[rowpatt,colpatt] =size (pattern) ; 

%  If  the  cross  is  being  correlated,  it  must  first  be  derotated 
%  since  the  two  cross  images  are  rotated  wrt  each  other.  For 
%  the  horizontal  wire  correlation,  this  is  not  necessary. 

%  Rotate  the  right  cross  image  using  a  bilinear  interpolation 
%  method  prescribed  by  the  Image  Toolbox  function  imrotate.m 
%  Also,  to  avoid  "I's"  at  the  edges,  clip  the  outer  edge  of 
%  the  pattern  matrix  after  rotation  and  before  doing  the  correlation. 
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%  The  amount  of  rotation  is  calculated  from  2*pi* (rps) *deltat* (180/pi) 
%  This  must  be  made  negative,  since  imrotate  rotates  counterclockwise 
%  for  a  positive  input  angle  (in  degrees) .  In  our  case,  the  right 
%  image  must  be  rotated  cloc]cwise  wrt  the  left  image  for  best 
%  correlation.  Since  pulse_dt  is  input  in  microseconds, 

%  must  convert  to  seconds. 

if  cormum==l 

degrot=-360*rotfreq_rps*pulse_dt*l . Oe-6 ; 
fprintf ( 'Rotating  right  cross  by  %.4f  degrees  \n',degrot); 
rotpattem=imrotate (pattern, degrot,  'bilinear' ,  'crop' )  ; 
rotpattem2=rotpattem(2  :  (rowpatt-1)  ,2  :  (colpatt-1) )  ; 

%  Adjust  the  extent  of  the  rotated  pattern 

[rowpatt, colpatt]  =size (rotpattem2) ; 
xstpatt=xstpatt+l  ; 
ystpatt=ystpatt+l ; 
xendpat  t  =xendpa 1 1 - 1  ; 
yendpat  t  =yendpa 1 1 - 1 ; 
pattem=  [  ] ; 
pattem=rotpattern2 ; 
else 

degrot=0; 

end 

%  Perform  the  cross -correlation  of  the  2  intensity  maps  by 
%  looping  through  imdatareg  matrix  with  pattern,  summing  the 
%  pixel  map  correlations  in  a  new  matrix  "D" 


D=[]; 

fprintf  (  '  \nPerforming  coitparison.  .  .  \n' )  ; 
for  k=l: (mreg-rowpatt+1) 

for  1=1: (nreg-colpatt+1) 

s\ib=imdatareg{k:k+rowpatt-l,  1: 1+colpatt-l)  ; 

D(k,  l)=sum(sum(sub.  *pattem) )  ; 

end 

end 

%  The  point  where  D  has  a  maximum  value  will  be  the  best 
%  image  match  between  "imdatareg"  and  "pattern" 

[a,b]=max(D) ; 

[c,d]=max(a) ; 

deitax=xstpatt- (ulx+d-1) ; 
deltay=ystpatt- (uly+b(d) -1) ; 

%  Print  out  the  result. 

fprintf ( 'Rough  corr  gives  dx=%d  &  dy=%d  pixelsXn' , deltax, deltay) ; 

%  Better  this  with  a  siib-pixel  correlation  using  an  area  centroid 
%  fit  to  the  near-maximum  portion  of  the  D  matrix. 

%  First  find  the  extent  of  the  maximum  portion  of  the 
%  correlation,  descend. m  steps  out  in  8  directions  from  the 
%  maximum  point  to  see  when  the  peak  levels  off  or  changes  slope. 

Drat= [ ] ; 

Drat=D/max(max(D) )  ; 

dir= [0  1 ; -1  1 ; -1  0 ; -1  -1 ; 0  -1 ; 1  -1 ; 1  0 ; 1  1 ] ; 
steps= [] ; 
val=[] ; 
for  m=l:8 

[steps  (m)  ,val(m)  j=descend(Drat,d,b(d)  ,dir  (m,  : ) )  ; 

end 

%  If  the  point  is  not  on  the  edge,  then  proceed  to  form  a  region 
%  a^ut  this  max  point  using  corrmap.m  Corrmap.m  creates  a  "star"- 
%  like  map  around  the  center  point  using  the  extents  from  descend. m 
%  ^d  fills  all  other  pixels  in  the  map  with  background  level 
%  intensity.  This  makes  for  a  good  image  to  find  the  peak  center 
%  via  centroidfit .m 

if  (min ( steps ) >=1) 

indl=[8  1  2  ;  2  3  4  ;  4  5  6  ;  6  7  8] ; 
for  1=1:4 

inaxext3  (1)  =max(  [steps  (indl  (1, 1) )  steps  (indl  (1, 2) )  . .  . 

steps ( indl (1,3)))); 

end 

Dfit=[]  ; 

[Dfit]=corrmap(Drat,d,b(d)  , steps, mean (val)  ,maxext3)  ; 
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%  Adjust  the  max  position  (d,b(d))  in  the  case  that  size(Dfit)< 

%  size  (Drat)  to  follow  the  true  max  position. 

ymaxdfit=maxext3 (2)+l; 
xmaxdf it=maxext3 ( 3 ) +1 ; 

%  Further  refine  the  correlation  map  by  zeroing  out  all  pixels 
%  with  a  value  <  mean{val)  .  Then  perform  a  centroid  fit  to  the 
%  top  l/3rd  of  the  peak. 

Dfit^Dfit-meanCval) ; 

Dfit {find(Dfit<0) ) =2eros (size (find (Dfit<0) ) ) ; 
ff=[]; 

ff=find(Dfit<(0.66*inax (max (Dfit) )  ) )  ; 

Dfit (ff) =2eros (si2e(ff ) ) ; 

[xcntg,ycntg] =centroidfit (Dfit) ; 

%  If  the  max  point  is  on  the  edge  of  the  correlation  region, 

%  then  take  this  point  as  the  peak  and  proceed. 

else 

xmaxdf  it =d; 
ymaxdfit=b(d)  ; 
xcntg=d; 
ycntg=b(d)  ; 

fprintf ( ‘max  on  edge  ' ) ; 

end 

deltax2=deltax+  (xmaxdf it -xcntg)  ; 
deltay2=deltay+ (ymaxdfit-ycntg)  ; 

%  Print  out  results.  Also,  corrxy  is  used  to  store  the  dx  and  dy 
%  distances  from  corrimagjb2 .m  for  later  use  in  derotation  programs . 

%  (corrnum=l  for  cross  and  corm\am=2  for  horizontal  wires)  . 

fprintf ( 'Fine  corr  gives  dx=%.2f  &  dy=%.2f  pixels\n',deltax2,deltay2); 
corrxy  (corrnum,  1 )  =deltax2  ; 
corrxy  (cormum,  2 )  =deltay2  ; 

%  If  this  is  the  cross  being  correlated,  I  need  to  know  the  precise 
%  pixel  location  of  the  left  cross  point  in  the  image.  Do  this  by 
%  showing  the  region  imdatareg  in  a  separate  window  and  selecting  the 
%  center  with  ginputc.m 

if  cormum==l 

RegionWin=f  igiire  ; 

set (RegionWin, 'name' , 'Left  Cross  Region' ) ; 
set (gca, 'position* , [0  0  1  1] ) ; 
imshow  ( imdatareg ,  mapimdata )  ; 

fprintf (' \nSelect  wire  cross  point  in  left  cross  image!  \n'); 

[ inputx, inputy ] =ginputc ( 1 ) ; 

1 f ter os  sx=inputx- 1 +ulx ; 
lftcrossy=inputy-l+uly ; 

fprintf ( 'Left  cross  at  x=%.2f  ,  y=% .2f \n' , Iftcrossx, Iftcrossy) ; 
close (RegionWin) ; 

end 

%  Plot  Drat  if  desired 

plotaway= input ( 'Do  you  wish  to  plot  Drat  contour?  y/n  <n>: ' , 's' ) ; 
if  iseitpty (plotaway) 
plotaway= ' n ' ; 

end 

i  f  plotaway==  '  y ' 
figure; 
clg 

contour (Drat) ; 

grid 

hold  on 

plot (d,b(d) , 'r* ' )  ; 

plot(  (d-xmaxdfit+xcntg)  ,  (b(d)  -ymaxdfit+ycntg) ,  'yx' )  ; 
xlabel  { '  X  or  columns  ’ )  ; 
y label ( ' y  or  rows ' ) ; 
hold  off 

end 

end  %  no  ImageWin 
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% 

%  Title:  descend. m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  corrpair2 .m,  corrimagjb2 .m,  CCcorrbox.m,  etc.. 

%  Child  subroutine (s) : 

%  Date:  28  August  1996 

% 

%  This  program  searches  out  from  the  pixel  (posx^posy)  in 
%  the  direction  defined  by  dxy  to  see  how  far  the  fiinction 
%  "data"  decreases  in  value  from  the  peak  at  (posx,posy)  . 

%  The  following  is  returned: 

%  i  =  #  of  pixels  to  the  first  upturn  in  value  in  this  direction 
%  val  =  function  value  at  the  "edge"  in  this  direction 

function  [  i,val  ]  =  descend  (data,  posx,  posy,  dxy) 

%  dy  and  dx  can  only  ever  have  values  =  -1,0,+1  to  define 
%  movement  bac)cward,  none,  or  forward. 

dy=dxy{l) ; 
dx=dxy(2) ; 

%  Start  index  k,  and  initialize  vectors 

k=l; 
x=[]; 
y=[]; 
v=[]  ; 

x(k)  =posx; 
y{k)=posy; 

v{k)=data (y(k)  ,x(k) )  ; 

[mdata,ndata]  =si2e  (data)  ; 

%  Move  out  in  the  direction  specified,  if  the  data  border 
%  is  breached  then  STOP.  Otherwise,  set  v(2) =intensity. 

for  k=2 : (max ( [mdata  ndata] ) +1 ) 
x(k) =posx+ (k'l) *dx; 
y (k)  =posy+ (k-1 ) *dy ; 

if  ((y(k)<l)  I  (y(k)>mdata)  |  (x(k)<l)  I  (x(k) >ndata) ) 
i=k-2; 
val=v(k-l)  ; 
return; 

end 

v(k)  =data(y(k)  ,x(k) ) ; 

%  If  the  intensity  is  nearly  leveling  off,  stop  moving  out 

if  (v(k)>=v(k-l) ) 
val=v(k'l)  ; 
i=k-2; 
return; 

end 

end 


% 

%  Title:  corrmap.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  corrpair.m,  CCcorrbox.m  etc... 

%  Child  subroutine (s) : 

%  Date:  4  Sept  1996 

% 

%  This  program  is  responsible  for  evaluating  the  region 
%  arouind  the  pixel  (posx,posy)  to  create 
%  a  map  of  its  2d  extent . 

function  [regpart]  =corrmap  (data,posx,posy,  i,bckgrnd,maxext) 

dir=[  0  1  ;  -1  1  ;  -1  0  ;  -1  -1  ;  0  -1  ;  1  -1  ;  1  0  ;  1  1] ; 

%  Create  a  rectangular  region  around  posx,posy  to  include  the 
%  maximum  extents  in  each  of  4  general  directions  contained  in 
%  indl:  East,  North,  West,  &  South 

%  Fill  a  rectangular  matrix  of  these  dimensions  with  a 
%  background  level  of  intensity  =  mean  of  particle  edge  values 
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regpart= [ ] ; 

regpart=bckgmd*ones  ( {maxext  ( 2 )  +maxext  { 4 )  +1 ) ,  (maxext  ( 1 )  +maxext  ( 3 )  +1 ) )  ; 

%  Evaluate  each  of  the  4  quadrants  in  the  rectangle  around  posx.posy 
%  to  see  if  the  pixels  in  the  quadrant  are  "within"  the  particle  or 
%  "outside”  of  the  particles  2D  extent.  If  within,  put  the  intensity 
%  in  the  regpart  matrix.  If  without,  don't  do  anything. 

%  Compute  the  coordinates  of  the  last  point  of  the  particle 
%  extent  in  each  of  the  8  directions. 

for  1=1:8 

xpt (1) =posx+i (1) *dir{l,2) ; 
ypt ( 1 ) =posy+i ( 1 ) *dir (1,1); 

end 

%  Compute  the  slopes /intercepts  of  the  2  defining  lines  (connecting 
%  the  3  last  points)  in  each  quadrant  in  data  space. 

%  e.g.  line  1  is  the  line  connecting  last  point  in  dir  1  &  2... 

%  If  the  (^adrant  is  convex,  the  line  slopes  can  be  0  or  inf 
%  which  will  cause  problems  later,  so  prepare  accordingly. 

%  Since  0  slopes  are  easier  to  work  with,  lines  2, 3, 6, 7  are 
%  computed  with  yslopes  (ym)  (which  can  be  0) 

%  and  lines  1,4, 5, 8  are  computed  with  xslopes  (xm)  (which  can 
%  be  0)  . 

for  1=1:8 

if  (1==8) 
k=l; 
else 

k=l+l; 

end 

if  (1==2  I  1==3  I  1==6  I  1==7) 
if  ( (ypt (k)~ypt (1) )==0) 
ym(l)=0; 
yint  (l)=ypt  (1)  ; 

else 

ym(l)  =  (ypt (k) -ypt (1) ) / (xpt(k) -xpt(l) ) ; 
yint  (l)=ypt  (1)  -ym(l)  *xpt  (1)  ; 

end 

else 

if  { (xpt(k)-xpt(l) )==0) 
xm(l) =0; 
xint (l)=xpt (1) ; 

else 

xm(l)  =  (xpt(k)  -xpt  (1)  )  /  (ypt  (k)  -ypt{l)  )  ; 
xint(l)=xpt  (l)-xm(l)  *ypt  (1)  ; 

end 

end 

end 

%  Quadrant  1:  NorthEast  of  posx,posy  (directions  1,2,&  3) 

%  Determine  first  if  curve  connecting  3  points  is  concave  (points 
%  to  center)  or  convex. 

ml3=(ypt(l)-ypt(3))/(5q5t(l)-xpt{3))  ; 
intl3=ypt(l)-ml3*xpt(l)  ; 
if  (ypt(2)<(ml3*xpt  (2)+intl3)  ) 
concave=0 ; 

else 

concave=l ; 

end 

%  Now  interrogate  every  pixel  in  Quadrant  1  to  see  if  it's 
%  within  or  without  the  particle's  extent. 

for  x=posx:  (posx+maxext  (1)  ) 

for  y=  (posy-maxext  (2) )  :posy 

if (concave==l  &  (  x<= (xm(l) *y+xint (1) )  |  y>= (ym(2 ) *x+yint (2) )  )  ) 
regpart ( (maxext (2) +l+y-posy) , (maxext (3) +l+x-posx) )=data(y,x) ; 

end 

if  (concave==0  &  x<=(xm(l)*y+xint(l) )  &  y>=(ym(2) *x+yint (2) )  ) 
regpart { (maxext (2 ) +l+y-posy) , (maxext (3) +l+x-posx) )=data(y,x) ; 

end 

end 

end 

%  Quadrant  2:  Northwest  of  posx,posy  (directions  3,4,&  5) 

%  Determine  first  if  curve  connecting  3  points  is  concave  (points 
%  to  center)  or  convex. 
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m35=(ypt(3)-ypt(5) )/{xpt{3)-xpt(5)) ; 
int35=ypt(3)  -m35*xpt  (3)  ; 
if  (ypt (4)<(m35*xpt{4)+int35) ) 
concave=0; 

else 

concave=l; 

end 

%  Now  interrogate  every  pixel  in  Quadrant  2  to  see  if  it's 
%  within  or  without  the  particle's  extent. 

for  x=(posx“inaxext{3) )  :posx 

for  y=  {posy-maxext  ( 2 )  )  :posy 

if (concave==l  &  (  y>= {ym{3) ♦x+yint (3 ) )  |  x>= {xm(4) *y+xint (4) )  )  ) 
regpart(  (maxext (2) +l+y-posy) ,  (inaxext(3)+l+x-posx>  )=data(y,x)  ; 

end 

if  {concave==0  &  y>=(ym(3)  *x+yint(3)  )  &  x>=  (xin{4)  *y+xint  (4) )  ) 
regpart(  {maxext  (2) +l+y-posy) ,  (maxext  (3) +l+x-posx)  )=data(y,x)  ; 

end 

end 

end 

%  Quadrant  3:  Southwest  of  posx,posy  (directions  5,6/&  7) 

%  Determine  first  if  curve  connecting  3  points  is  concave  (points 
%  to  center)  or  convex. 

m57=(ypt(7)-ypt(5) ) / (xpt (7) -xpt (5) ) ; 
int57=ypt (5) -m57*xpt (5) ; 
if  (ypt (6)>(m57*xpt(6)+int57) ) 
concave=0; 

else 

concave=l ; 

end 

%  Now  interrogate  every  pixel  in  Quadrant  3  to  see  if  it's 
%  within  or  without  the  particle's  extent. 

for  x={posx-inaxext  (3) )  :posx 

for  y=posy: (posy+maxext (4) ) 

if  (concave==l  &  {  y<=  (ym(6)  *x+yint  (6) )  |  x>=  (xm(5)  ♦y+xint  (5) )  )  ) 
regpart { (maxext (2 ) +l+y-posy) , (maxext (3) +l+x-posx) ) =data (y, x) ; 

end 

if  (concave==0  &  y<=(ym(6)*x+yint(6) )  &  x>= (xm(5) *y+xint (5) )  ) 
regpart { (maxext (2 ) ^l+y-posy ) , (maxext (3 ) +l+x-posx) ) =data (y, x) ; 

end 

end 

end 

%  Quadrant  4:  SouthEast  of  posx,posy  (directions  7,8,£c  1) 

%  Determine  first  if  curve  connecting  3  points  is  concave  (points 
%  to  center)  or  convex. 

m71=(ypt (7)-ypt(l) ) / (xpt (7 ) -xpt (1) ) ; 
int71=ypt (7) -m71*xpt(7) ; 
if  {ypt(8)>(m71*xpt (8)+int71) ) 
concave=0 ; 

else 

concave=l ; 

end 

%  Now  interrogate  every  pixel  in  Quadrant  4  to  see  if  it's 
%  within  or  without  the  particle's  extent. 

for  x=posx :  (posx+maxext  ( 1 )  ) 

for  y=posy:  (posy+maxext  (4) ) 

if  {concave==l  &  (  y<=  (ym(7)  *x+yint  (7) )  |  x<=  (xm(8)  *y+xint  (8) )  )  ) 
regpart ( (maxext (2 ) +l+y-posy) , (maxext (3) +l+x-posx) )=data{y,x) ; 

end 

if  (concave==0  &  y<={ym(7)*x+yint(7) )  &  x<=(xm(8) *y+xint (8) )  ) 
regpart ( (maxext (2) +l+y-posy) , (maxext (3) +l+x-posx) ) =data(y,x) ; 

end 

end 

end 


% 
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%  Title:  centroidfit .m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  corrpair4.m,  corriitiagjb2  .m,  CCcorrbox.m,  etc... 

%  Child  subroutine ( s ) :  ycentroid.m  &  xcentroid.m 

%  Date:  18  July  1996 

% 

%  centroidfit.m  is  the  next  step  in  the  fitting  process.  It  basically 
%  puts  the  data  into  a  form  which  can  be  easily  fitted  with  a 
%  intensity  centroid  using  the  Matlab  minimization  function  fmins 
%  and  ycentroid.m  &  xcentroid.m 

%  centroidfit.m  returns  all  the  relevant  gaussian  data  to  ptypejpb.m 
%  which  siirply  passes  it  back  to  getpartjb.m 

function  [xct,yct]  =centroidfit (centdata) 

%  centdata  contains  the  grayscale  pixel  data  in  the  region 
%  surrounding  the  particle  being  evaluated.  First  determine 
%  its  size  and  then  reshape  the  data  into  a  column  vector. 

%  (e.g.  for  3x3  might  have  [57  85  60  80  180  88  70  90  40]) 

[szm, szn] =size (centdata) ; 

szcentdata=szm*szn; 

z- (reshape (centdata, l.szcentdata) ) ' ; 

%  Create  a  similar  column  vector  of  x's,  essentially  giving  the 
%  pixel  distance  from  the  leftmost  column  of  the  region  centdata. 

%  (e.g.  for  3x3  "x"  would  be  [000111222]) 

x=zeros (szm, szn) ; 
for  i=2:szn, 

x( : , i) = (i-l) *ones (szm, 1) ; 
end 

X  =  (reshape (x, 1, szcentdata) ) ' ; 

%  Create  a  column  vector  of  y's,  essentially  giving  the 
%  pixel  distance  from  the  topmost  row  of  the  region  centdata. 

%  (e.g.  for  3x3  "y"  would  be  [012012012]) 

y=zeros (szm, szn) ; 
for  i=2:szm, 

y{i, : )= (i-l) *ones (l,szn) ; 
end 

y  =  (reshape (y, 1, szcentdata) ) ' ; 

%  NOTE:  All  of  this  reshaping  into  vectors  is  not  necessary 
%  for  running  the  minimization  routine  which  can  work  just 
%  fine  on  matrices.  However,  using  vectors  speeds  the  process 
%  up  by  about  100%! 1 ! 

%  fmin  is  defined  in  the  Optimization  Toolbox  of  Matlab.  It 
%  is  used  to  find  the  minimum  of  a  scalar  function  of  one 
%  variable. 

global  X  y  z 

[yet ,  out]  =  fmin  ( '  ycentroid  ‘  ,  0 ,  szm-1 )  ; 
yct=yct+l ; 

[xct,out]  =  fmin( 'xcentroid* , 0, szn-1) ; 
xct=:xct+l; 

clear  global  x  y  z 


% 

%  Title:  xcentroid.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  centroidfit.m 

%  Child  subroutine (s) : 

%  Date:  18  July  1996 

% 

%  This  very  short  function  is  the  one  minimized  in  fmin 
%  of  centroidfit.m 


fiinction  err  =  xcentroid{xof fset) 
global  X  z 

err  =  abs (sum (z .* (x-xof fset) )) ; 
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% 

%  Title:  ycentroid.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  centroidfit.m 

%  Child  subroutine  (s) : 

%  Date:  18  July  1996 

% 

%  This  very  short  function  is  the  one  minimized  in  fmin 
%  of  centroidfit.m 

function  err  =  ycentroid{yoffset) 

global  y  z 

err  =  abs {sum(z . ♦ (y-yof fset) ) ) ; 


% 

%  Title:  xyresol.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  jpbpiv3.m 

%  Child  subroutine (s) : 

%  Date:  5  Mar  1997 

% 

%  Since  the  CCD  camera  we  use,  TM745E,  does  not  have  s<3uare  pixels 
%  I  need  to  determine  the  pixel  resolution  in  both  the  vertical 
%  and  horizontal  directions.  This  routine  computes  these  two 
%  resolutions  based  on  measurements  made  in  real  space,  and 
%  coirparing  these  to  distances  in  the  pixel  map. 

%  Several  parameters  are  needed  to  perform  this  fionction 

if  (rotfrec3_rps==[]  |  rad_cross==  [ ]  |  pulse_dt==[]  |... 
dist_hwire== [ ]  |  corrxy== [ ] ) 

fprintf ( 'ERROR:  Set  parameters  first:  rps,deltat,disthwire, rad\n' ) ; 

else 

%  "corr:|^"  contains  distances  measured  by  corrimagjb2  .m  for 
%  the  wire  cross  double  exposure  and  the  horizontal  alignment 
%  wires  respectively: 

delxcr =corrxy (1,1) ; 
delycr=corrxy (1,2); 
delxhor=corrxy (2,1); 
delyhor=corrxy (2,2) ; 

%  First,  the  cross  in  the  alignment  tool  is  at  a  radius  that 
%  has  been  measured  in  microns  (see  notebook,  27  Jun  & 

%  1  &  9  July  96)  and  is  set  in  jpbpiv3  as  rad_cross. 

%  Since  the  cross  image  is  a  double  exposure,  and  I  loiow  the 
%  angular  velocity  and  the  time  between  exposures,  I  can 
%  compute  the  linear  distance  between  the  2  crosses  as 
%  2*rad*sin{ (rps)  *  deltat/2>: 

%  rotfreq_rps  and  pulse_dt  are  parameters  in  jpbpiv3 
%  pulse_dt  must  be  converted  from  microseconds  to  sec 

secl=2*rad_cross*sin(2*pi*rotfreq_rps*pulse_dt*1.0e~6/2) ; 

%  The  distance  between  the  2  horizontal  alignment  wires  is 
%  measured  in  microns  and  is  set  in  jpbpivl  as  dist_hwire. 

%  Now  I  six^ly  solve  the  2  quadratics  to  get  the  horizontal 
%  and  vertical  pixel  resolutions  in  micrometers /pixel  (see 
%  notebook  10  Jul  96) : 

num=delxcr^2  *dist_hwire''2  -delxhor^2  *secl^2  ; 
denom=delxcr ""2  *delyhor '^2  ~delxhor^2  *delycr^2  ; 
vfact=sqrt  (num/denom)  ; 

hfact=sqrt  (  (secl^2“delycr^2*vfact'"2 )  /delxcr"2 )  ; 

%  And  the  ratio  is: 

ratfact=vfact/hfact ; 
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fprintf ( 'Pixel  dimensions:  vertical  =  %.4f  microns  \n',vfact) 

fprintf ( ' \t\thori20ntal  =  %.4f  microns  \n',hfact); 

fprintf { ' \t\tvertical/horizontal  ratio  =  %.4f  \n’ , ratfact) ; 

end 


% 

%  Title:  rpsdet.m 

%  Author:  Jeffrey  Bons 

%  Parent  program: 

%  Child  siibroutine  (s)  : 

%  Date:  25  Mar  1997 

% 

%  This  program  determines  the  rps  based  on  the  TS  image 
%  position  in  the  reference  frame. 

%  frame  pixel  dimensions  are  752  x  480 

%  reference  conditions 

%  for  21  Mar  data 
rpsedge=9.9995; 
rpscntr=10 . 0175 ; 
delrps=2 .57e-5; 

%  for  3  Mar  data 
%rpscntr=10; 

%delrps=.0125; 

side=input( 'Which  side  of  TS  is  identified?  1  or  r  <r>:','s'); 
f  igure  { ImageWin )  ; 

fprintf ( 'click  on  specified  side\n' ) ; 

[xedge , yedge] =ginput ( 1 ) 

if  side=='l’ 

rpsout=rpsedge+delrps* {xedge+650) ; 

%  rpsout=rpscntr+delrps* (xedge-60) / (376-60) ;  %  3  Mar 

else 

rpsout=:rpsedge+delrps*xedge ; 

%  rpsout=rpscntr-delrps*  (692-xedge)  /  (692-376)  ;  %  3  Mar 

end 

%  Print  the  results  to  screen 

fprintf ( ' \nResult  is :  \trps=%f ' ,  rpsout) ; 

%  If  desired,  input  these  into  the  jpbpiv3  graphical 
%  user  interface. 

ansa=input (* Input  new  data  into  jpbpiv3?  y/n  <y>:  ','s'); 
if  isempty (ansa) 
ansa= ' y ' ; 

end 

if  ansa=='y' 

rotf  req_rps=rpsout  ; 

set (ImAttrib_edit41, 'string' ,num2str (rotfreq_rps) ) ; 
fprintf  ( 'New  parameter  input  to  jpbpiv3  .  .  \n' )  ; 

end 


Title:  pixmag.m 
Author:  Jeffrey  Bons 
Parent  program:  jpbpiv3.m 
Child  subroutine (s) : 

Date:  25  Mar  1997 

Anytime  I  adjust  the  camera  to  focus  on  the  current  light 
sheet  position,  the  magnification  changes  from  the  alignment 
ma^ification  calculated.  This  routine  computes  the  needed 
adjustment  and  the  change  in  pixel  center  of  rotation. 

%  The  first  thing  to  do  is  verify  the  alignment  pixel  dimensions 
%  and  center  of  rotation,  as  well  as  the  location  of  alignment. 
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%  Data  from  28  Feb  97  adjusted  for  21  Mar  movement  of  optics 

Datadate= '28  Feb  97 ' ; 

algpixht=16 . 80 ;  %microns 

algpixwd=14 . 29 ;  %microns 

algxcntr=52  5 ;  %pixels 

algycntr=-25893;  %pixels 

algoptpos=0.845;  %inches  21  Mar  data 

%algoptpos=l,0256;  %inches  3  Mar  data 

algcaiTpos=0 . 143 ;  %  inches 

fprintf ( ■ \nThe  alignment  results  currently  in  use  are ' ) ; 

fprintf ( ’ \nfrom  %s  : ' , Datadate) ; 

fprintf  (■  \npixel  height  (h)  =  %f  •  ,algpixht)  ; 

fprintf  (•  \npixel  width  (w)  =  %f\algpixwd); 

fprintf {'\npixel  cntrofrot  (xc)  =%f',algxcntr); 

fprintf { ' \npixel  cntrofrot  (yc)  =  %f • , algycntr) ; 

%  Change  in  pixel  dimension  with  sheet  motion  was  measured  on 
%  28  Feb  97  to  be  0.82  percent  per  mm  of  motion. 

magadj  =0.82;  %  percent /mm 

%  When  moving  the  camera  traverse,  the  xc,yc  pixels  move  also. 

%  I've  measured  this  motion  a  few  times,  the  yc  motion  is  pretty 
%  repeatable,  while  the  xc  is  not  so... 

%  Using  the  data  from  28  Feb  97 

ycntrad:j=-1515;  %ypixels/inch  camera  motion 
xcntradj=“54;  %:qDixels/inch  camera  motion 

%  Also  need  an  estimate  of  test  section  center  for  z/d  calc. 

%  Data  from  28  Feb  97  measurement  (adjusted  for  21  March) 

tscntr= [0.846  0.846];  %inches  on  optics  traverse  on  21  Mar  data 
%tscntr=[1.026  1.026];  %inches  on  optics  traverse  on  3  Mar  data 
camposdat= [0 .143  1.8];  %inches  on  camera  traverse  corresponding  to  tccntr 

%  Now  that  all  of  that's  input,  the  computation  is  pretty 
%  straightforward. 

%  First  input  the  optics  traverse  position  for  this  data. . . 

opt loc=input {■ Enter  optics  traverse  position  (inches):  '); 

%  Conpute  new  pixel  dimensions 

Magnif =1+ (optloc-algoptpos) *25 . 4*magadj /lOO ; 
ac tpixht =algpixht  *Magni f ; 
actpixwd=algpixwd*Magnif ; 

%  Next  input  the  camera  traverse  position  for  this  data... 
caml oc= input (' Enter  camera  traverse  position  (inches):  '); 

%  Compute  z/d  position 

acttscntr=(  (tscntr(2)-tscntr(l)  )  /  (camposdat  (2) -cairposdat  (1)  ) )  .  .  . 

*  { camloc-cairposdat  ( 1 ) )  +tscntr  (1); 

actzoverd=(optloc“acttscntr) *25.4/10; 

%  Compute  actual  xc,yc 

xcint=xcntradj  *  ( camloc*“algcainpos )  +algxcntr  ; 
ycint=ycntradj  *  (camloc-algcampos )  +algycntr ; 

%  To  adjust  the  xc,yc  for  the  magnification,  the  pixel  distance 
%  from  the  center  of  the  optical  axis  to  the  current  xc,yc 
%  must  be  adjusted. 

actxc=(xcint-376) /Magnif+376; 
actyc= (ycint-240) /Magnif+240; 

%  Compute  camera  motion  from  alignment  position  in  microns 
cammotion=  (camloc-algcampos)  *25 .4*1000  ; 

%  Print  the  results  to  screen 

fprintf ( ' \nResults  are:  \tz/d=%f ’ ,actzoverd) ; 
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fprintf { ' \n\t\tpixel  h=%f ’ ,actpixht) ; 

fprintf { ' \n\t\tpixel  w=%f ' , actpixwd) ; 

fprintf ( ' \n\t\txc=%f ' , actxc) ; 

fprintf ( ' \n\t\tyc=%f ' , actyc) ; 

fprintf  ( •  \n\t\tcaininotion=%f  \n'  ,  caminotion)  ; 

%  If  desired,  input  these  into  the  jpbpivB  graphical 
%  user  interface. 

ansa=input  (' Input  new  data  into  jpbpivB?  y/n  <y>:  ',’s’); 
if  isernpty  (ansa) 
ansa='y’  ; 

end 

if  ansa=='y' 

pixel_width=actpixwd ; 
pixel_height=ac  tpixht ; 
ycntr_pix=actyc ; 
xcntr__pix=actxc  ; 

20verdh=ac  t  zoverd  ; 

set  {ImAttrib_editl4,  'string'  ,nuin2str  (pixel_width) )  ; 
set  (IinAttrib_editl5,  'string'  ,niain2str  (pixel^height) )  ; 
set (ImAttrib_edit42 , ' string ' , num2str (xcntr_pix) ) ; 
set  { IinAttrib_edit4B ,  ’  string  * ,  nuin2str  (ycntr_pix) ) ; 
set  (IinAttrib_edit46,  'string'  ,nuin2str  (cammotion) )  ; 
set {IinAttrib_edit62,  'string'  ,n\Jin2str (zoverdh) )  ; 
fprintf  ( 'New  parameters  input  to  jpbpivB  . .  \n' )  ; 

end 


Title:  CCbox.m 
Author:  Jeffrey  Sons 
Parent  program :  j pbp ivB . m 
Child  subroutine (s) :  ginputc.m 
Date:  4  Mar  1997 

This  program  divides  a  user  defined  rectangle  in  the 
ImageWin  into  small  boxes  for  cross -correlation. 

Can't  run  without  parameters  for  box  dimensions 

if(  box_width== [ ]  |  box_height== [ ]  ) 

fprintf ( 'ERROR:  set  box  dimensions  first'! \n'); 

else 

%  Bring  up  the  ImageWin  and  print  the  current  rectangle 
%  comer  values  (if  any)  .  User  can  select  the  comers  of  a 
%  rectangle  encompassing  the  left  image,  enter  them  from 
%  the  keyboard,  or  accept  the  current  values. 

i f  ( ImageWin== 0 ) 

fprintf ( 'ERROR:  no  ImageWin  available. . .\n\n' ) ; 

else 

figure  (ImageWin)  ; 

if  {ulxrect''=  [ ]  &  ulyrect~=[]  &  lrxrect~=[]  &  lryrect-=[]) 
fprintf (' Current  rectangle  coordinates  are:  \n’ ) ; 
fprintf ('  upper  left:  x=%d  y=%d  \n' ,ulxrect,ulyrect) ; 
fprintf ( ' lower  right :  x=%d  y=%d  \n ' , Irxrect , Iryrect)  ; 

else 

fprintf  (  'No  rectangle  currently  specified!  \n' )  ,- 

end 

fprintf (' \nChoose  from  selections  for  inputing  rectangle:'); 
ansc=input ( ' c=use  current,  m=mouse  input,  k=keyboard  input  <c> 
if  isernpty  (ansc) 
ansc='c ' ; 

end 

if  ansc=='m' 

fprintf ( 'Create  rectangle  surrounding  left  image\n'); 
fprintf { 'Select  upper  left  corner  of  rectangle. \n' ) ; 
[ulxrect , ulyrect ] =ginputc (1); 
ulxrect=round(ulxrect) ; 
ulyrect=round (ulyrect)  ; 

fprintf (' Select  lower  right  corner  of  rectangle . \n' ) ; 

[ Irxrect , Iryrect ] =ginputc ( 1 ) ; 
lrxrect=round( Irxrect) ; 
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lryrect=round(lrYrect) ; 
elseif  ansc==’k' 

ulxrecto=ulxrect ; 
ulyrecto=ulyrect ; 
lrxrecto=lrxrect ; 
lryrecto=lryrect ; 

ulxr€ct=input {' Enter  upper  left  x  coord  <current>  :  '); 
if  iserrpty  (ulxrect)  ulxrect=ulxrecto;  end; 
ulyrec t= input (• Enter  upper  left  y  coord  <current>  :  •); 
if  iseiipty(ulyrect)  ulyrect=ulyrecto;  end; 
lrxrect=input ( ' Enter  lower  right  x  coord  <current>  :  ' } ; 
if  iseirpty(lrxrect)  lrxrect=lrxrecto;  end; 
lryrect=input ( • Enter  lower  right  y  coord  <current>  :  ' ) ; 
if  iseinpty  (Iryrect)  Iryrect^lryrecto;  end; 

else 

fprintf ( 'Using  current  values. . , \n' ) ; 

end 

%  Limit  region  to  available  image. . . 

if  {ulyrect<0)  ulyrect=0;  end; 
if  (lryrect>msi2eimdata)  lryrect=msizeimdata;  end; 
if  (ulxrect<0)  ulxrect=0;  end; 

if  (lrxrect>nsi2eimdata)  lrxrect=nsi2eimdata;  end; 

if  (Irxrect  <  ulxrect  |  Iryrect  <  ulyrect) 

fprintf { 'Rectangle  not  properly  dimens ioned\n' )  ; 

else 

%  Compute  number  of  boxes  region  can  hold 

nbox=floor ( (lrxrect-ulxrect+1) /box_width) ; 
mbox=floor{  (lryrect-ulyrect+1)  /box_height)  ; 

fprintf  ( 'Region  is  %d  boxes  wide  &  %d  boxes  tall\n' ,nbox,inbox>  ; 

%  Subtract  off  the  background  illumination  level  in  this  section  of 
%  the  image,  and  stretch  the  current  data  to  fit  the  8 ’-bit  window 

avgboxint=mean  (mean  ( imdata  (ulyrect :  Iryrect ,  ulxrect :  Irxrect )  ) )  ; 
fprintf  { 'Average  box  intensity  here  is  %f\n' , avgboxint)  ; 
ansm= '  n  ’  ; 

%  ansm=input  ( '  Stretch  data?  y/n  <n> :  ' ,  '  s  ' )  ; 

if  isempty  (ansm) 
ansm= ’ n ' ; 

end 

if  ansm=='y' 

imdata=round  ( 2 56 *  ( imdata-avgboxint )  /  ( 25 6-avgboxint ) )  ; 
imdata ( find {imdata<7)  )  =7*ones  (size  (find{imdata<7)  ) )  ; 

end 

%  Draw  boxes  on  selected  portion  of  ImageWin 

if  (LTSWin==0) 

LTSWin=f  igure  ; 
else  figure  (LTSWin)  ; 
end 

set (LTSWin, 'name ' , filename) ; 
clg; 

set(gca,  'position' , [0  0  1  1]); 

imshow(imdata (ulyrect :lryrect,ulxrect: Irxrect)  ,mapimdata)  ; 
set (gca,  'xtick' , { [0  rnbox] *box_width+0 . 5 ) ) ; 
set(gca,  'ytick',  ( [0 :mbox] *box_height+0 . 5) )  ; 
grid  on 

%  Create  xbox  &  ybox  vectors  containing  the  pixel  coordinates 
%  of  box  centers.  For  these  center  coordinates  to  be  integers 
%  the  box_„width  and  box_height  MUST  be  odd  integers. 

xbox= [ ] ; 
ybox= [ ] ; 

xbox ( 1 ) =ulxrect+0 . 5  * (box_width~l ) ; 
ybox ( 1 ) =ulyrect+0 . 5  * (box_height-l ) ; 
for  k=2 rnbox 

xbox (k) =xbox (k-1 ) +box_width; 

end 

for  k=2: inbox 

ybox ( k) =ybox ( k-1 ) +box_height ; 

end 

end 
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%  List  options  for  optimum  grid  refinement 


fprintf (’ Possible  configurations  for  different  box  #s:  \n'); 
fprintf ( ' #  boxXtpixels  wide\tpixels  high\n' ) ; 

for  g={min(nbox,inbox) -2)  :  {max  (nbox^mbox) +2) 
widmin=floor ( (lrxrect~ulxrect+l) /g) ; 
hgtmin=floor { {lryrect-ulyrect+1) /g) ; 
fprintf { ‘ %d\t%d\t\t%d\n' , g, widmin,hgtmin) ; 

end 

end 

end 


% 

% 

% 

% 

% 

% 

% 

% 

%  This  progr^  is  used  to  correlate  boxes  from  the  left  image 
%  into  the  right  image.  The  peak  then  indicates  the  distance 
%  and  direction  of  motion, 

%  Must  have  box  coordinates  and  parameters  to  proceed, 

if  (xbox==f]  I  pixel_width==  [ ]  |  pixel_height==  [ ]  |  box_width==  [ ] 
box_height== [ ]  |  pulse_dt==[]  |  max_velocity== []  1... 
min_velocity==[ j  |  min_angle== [ ]  |  inax_angle== [ ]  |.,. 
rotfreq_rps==  [ ]  |  xcntr_pix==  [ ]  |  ycntr_pix==  [ ]  |  absmean==  []  |  .  .  . 
ulxrect== [ ]  I  ulyrect== [ ] ) 

fprintf {' Error :  Need  boxes  and  parameters  first  I  I \n'); 

else 

%  Determine  the  angular  motion  in  radians,  theta=2*pi*rps*deltat 
%  Convert  pulse_separation  from  microseconds  to  seconds 

theta=2*pi*rotfreq_rps*pulse_dt*l . Oe-6; 

%  Loop  through  all  of  the  boxes  to  do  correlation, 

Ddata= [ ] ; 

Pksdata= [ ] ; 

[mmax,nmax3  =size  (imdata)  ; 

difx=E] ; 

dify=[] ; 

ang=[] ; 

vel=E]; 

goodbox= zeros (length (ybox) , length (xbox) ) ; 

lftxnew=[] ; 

lftynew= [ ] ; 

for  k=l: length (xbox) 

fprintf  ( ’  Column :  x=%d\n '  ,  k)  ; 
for  j=l : length (ybox) 
lftxold=xbox{k) ; 

If tyold=ybox ( j ) ; 

%  Rotate  the  coordinates  of  the  center  of  the  box  into  the 
%  right  test  section  image  by  angle  theta.  If  there's  no  rotation 
%  then  new=old. 

if  (abs (theta) <=0.001 ) 
lftxnew( j ,k) =lftxold; 
lftynew( j ,k) =lf tyold; 

else 

Elftxnew(j  ,k)  ,  lftynew(  j  ,  k)  ]  =rotpart  (Iftxold,  If  tyold,  theta,  xcntr_pix,ycntrj)ix,pixel_width,pixel_heig 
ht)  ; 

end 

%  The  left  box  region  will  be  correlated  into  an  area  in  the 
%  right  image  defined  by  min/max  velocity  &  angle.  Both 
%  regions  contain  image  data  -  the  mean  intensity. 

boxreg= [ ] ; 


Title :  CCcorrbox3  .m 
Author:  Jeffrey  Bons 
Parent  program:  jpbpiv3.m 

Child  subroutine (s)  :  centroidfit .m,  descend.m,  jpbquiv.m, 
rotpart.m,  &corrmap.m 

Date:  25  Mar  1997 
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boxreg=imdata( (lftyold-0 .5* {box_height-l) ) :  ... 

(lftyold+0.5* (box_height”l) ) , (lftxold-0 . 5* (box_width-l) ) :  . . . 
{ If txold+0 .5* {box_width-l) ) ) -absmean; 

if  inin_velocity>=0 . 0 

ys t=round { If tynew ( j ,  k)  +inin_velocity*pulse_dt .  . , 

*cos  (inax(  [abs  (90-'inax_angle)  abs  {90~miii_angle)  ] )  .  .  . 

*pi/180) /pixel_height-0.5* (box_height-l) ) ; 

else 

yst=ro\ind  ( If  tynew  (j  ,  k)  +inin_velocity*pulse_dt/pixel_height .  .  . 
“0.5* (box_height-l) ) ; 

end 

%  If  the  limits  don't  include  90  degrees,  need  to  adjust  the 
%  region. 


if  (min_angle<=90  &  inax_angle>=90) 

yend=round (If tynew (J  ,k) +inax_velocity .  . , 

*pulse_dt/pixel_height+0.5*(box_height-l) ) ; 
xst=round(lf  txnew(  j  ,  k)  -max_velocity*pulse_dt . .  . 

*sin(  (inax_angle“90)  *pi/180)  /pixel_width-0 . 5*  (box_width“l) )  ; 
if  min_angle>=0 

xend=:ro'und  ( If  txnew ( j  ,  k)  +inax_velocity*pulse_dt . . . 

*sin( (90-min_angle) *pi/180) /pixel_width+0 . 5* (box_width-l) ) ; 

else 


xend=round  ( If  txnew  ( j  ,  k)  +inax_velocity*pulse_dt .  .  . 
/pixel_width+0.5*  (box_width-l) )  ; 

end 

else 


yend=ro\md  { 1  f  tynew  ( j  ,  k )  +max_velocity *pulse_dt ,  .  . 

*cos (min ( [ abs ( 9  0 -max_angle )  abs ( 9 0 -min_angle )])... 
*pi/180) /pixel_height+0 . 5* (box_height-l) ) ; 
if (min_angle>90) 


xst=round  (If  txnew  (j  ,  k)  -max_velocity*pulse_dt .  . . 
*sin(  (inax_angle-90)  *pi/180)  /pixel_width .  ,  . 
-0.5* (box_width-l ) ) ; 


else 


xend=round  ( If  txnew  (j ,  k)  -min_velocity*pulse_dt . . . 
*sin(  (min_angle-90)  *pi/180)  /pixel_width .  .  . 
+0.5* (box_width“ 1 ) ) ; 


xst=ro\md(  If  txnew  ( j  ,  k)  +min_velocity*pulse_dt . .  . 
*sin(  (90“max_angle)*pi/180)  /pixel_width .  .  . 
-0.5*  (box_width-l )  )  ; 

xend=round  ( If  txnew  ( j ,  k)  +max_velocity*pulse_dt . .  . 
*sin(  (90-min_angle)  *pi/180)  /pixel_width.  .  . 
+0.5* (box_width-l ) )  ; 

end 

end 


%  Send  these  4  coordinates  to  the  Ddata  matrix  for  use  in  the 
%  recorrelation  later. 


w= ( k- 1 ) * length (ybox ) + j ; 

Ddata (w, 1 : 6 ) = [yst  yend  xst  xend  0  0 ] ; 

%  If  this  region  extends  beyond  the  limits  of  imdata,  then  can’t 
%  process . . . 

if  (xend>nmax  |  xst<l  |  yst<l  I  yend>minax) 
difx(j,k)=0.0; 
dify(j,k)=0.0; 
ang(j  ,k)=0.0; 
vel( j ,k)=0.0; 
else 

inapreg=  [  ]  ; 

mapreg^ imdata  (yst  :yend,  xst :  xend)  -absmean; 

%  Correlate  boxreg  into  mapreg  to  determine  the  cross-correlation 
%  map  D. 


D=[]; 

[mmap,  nmap]  =size  (mapreg)  ; 
for  h=l :  (inmap-box_height+l) 
for  1=1: (nmap-box_width+l) 
inatch=  [  ]  ; 

match=mapreg(h: (h+box_height-l) ,1: (l+box_width-l) ) ; 
D (h, 1) =sum (sum (match. *boxreg) ) ; 

end 

end 

%  Make  the  minimum  D  value  =  0 
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D=D“min(min(D)  )  ; 

%  Store  the  D  matrix  in  the  Ddata  archive  for  later  use 

[Din,Dn]=size(D)  ; 

Ddata  (w,  5:6)  =  [Dm  Dn]; 

Ddata (w, 7: (6+Dm*Dn) ) =reshape (D, l.Dm^Dn) ; 

%  Look  for  peaks  in  the  D  map  before  finding  the  maximum  peak 

if  (min (size (D) ) <3 ) 

[a,b]  =max(D)  ; 

[C/d]  =max(a)  ; 

difx ( j , k) =xst+d-l+0 . 5* (box_width-l) -If txnew( j , k) ; 
dify ( j , k) =yst+b (d) -1+0 . 5* {box_height-l) -If tynew ( j , k) ; 
coirrpl=difx  ( j ,  k)  *pixel_width+dify  ( j ,  k)  *pixel_height*i; 
ang(  j,k)=angle(compl)  *180/pi; 
vel  (j ,  k)  =abs  (coitpl)  /pulse_dt  ; 
goodbox ( j , k) =1 ; 

else 

corrpeaks=zeros (size (D) ) ; 
for  p=2 : (Dm-1) 

for  q=2 : (Dn-1) 

if (D(p,q)>=D(p+l,q+l) 

D(p/q)>=D(p-l,q+l) 

D(p,q)>=D(p+l,q-l) 

D(p,q)>=D{p-l,q-l) 
corrpeaks (p, q) =1 ; 

end 

end 

end 

%  Store  the  corrpeaks  matrix  in  the  Pksdata  archive  for  later  use 

Pksdata (w,  1 :  (I^*Dn) )  ^reshape (corrpeaks,  1, Dm*Dn)  ; 

%  If  there  were  no  peaks,  then  there's  no  vector 

if  find (corrpeaks )== [] 
difx(j,k)=0.0; 
dify( j ,k)=0.0; 
ang( j ,k) =0.0; 
vel{j,k)  =0.0; 
else 

%  Find  the  maximum  value  of  D.  All  entries  that  weren't 
%  determined  to  be  peaks  are  not  considered. 

[a,b] =max(D. *corrpeaks) ; 

[c,d]  =inax(a)  ; 

%  Better  this  with  a  sub-pixel  correlation  using  an  area  centroid 
%  fit  to  the  near-maximum  portion  of  the  D  matrix. 

%  First  find  the  extent  of  the  maximum  portion  of  the 
%  correlation  using  descend. m 

Drat= [ ] ; 

Drat=D/max(max(D) )  ; 

dir=[0  1;-1  1;-1  0;-l  -1;0  -1;1  -1;1  0;1  1] ; 
steps=[] ; 
val= [ ] ; 
for  m=l:8 

[steps  (m)  ,val(m)  ]=descend(Drat,d,b(d)  ,dir(m,  :) )  ; 
end 

%  Proceed  to  form  a  region  about  this  max  point  using  corrmap.m 

indl=[8  1  2  ;  2  3  4  ;  4  5  6  ;  6  7  8] ; 
for  1=1:4 

maxext3  (1)  =inax(  [steps  (indl  (1, 1) )  .  .  . 

steps (indl (1,2) )  steps (indl (1, 3 ) ) ] ) ; 

end 

Dfit=[]; 

[Dfit] =corrmap(Drat,d,b{d) , steps, mean (val) ,maxext3) 

%  Adjust  the  max  position  (d,b{d))  in  the  case  that  size(Dfit)< 

%  size  (Drat)  to  follow  the  true  max  position. 

ymaxdf it=maxext3 (2)+l; 
xmaxdf it=maxext3 (3 ) +1 ; 


&  D(p,q)>=D(p,q+l)  &... 
&  D(p,q)>=D(p+l,q)  &.  .  . 
&  D(p,q)>=D(p,q-l)  &.  .  . 
&  D(p,q)>=D(p-l,q)  ) 
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%  Fi^ther  refine  the  correlation  map  by  zeroing  out  all  pixels 
%  with  a  value  <  mean(val) .  Then  perform  a  centroid  fit  to  only 
%  the  top  25%  of  the  peak  using  centroidfit .m 

Df  it=Dfit-mean(val)  ; 

Dfit (find{Dfit<0) ) =zeros (size (find (Dfit<0) ) ) ; 
ff=[]; 

ff=find(Dfit< (0 .75*max(max{Dfit) ))); 

Dfit (ff ) =zeros (size(ff) ) ; 

[ xcntg , y cn tg ]=centroidfit(Dfit); 

%  Store  the  resulting  correlation  refinement  in  difx,dify 

difx( j , k) =xst+d-l+xcntg-xmaxdfit+0 . 5* (box_width-l) -If txnew( j ,k) ; 

dify ( j , k) =yst+b(d) -1+ycntg-ymaxdfit+O .5* (box_height-l) -lftynew{ j , k) 

compl=difx(  j  ,  k)  *pixel_width+dify  ( j  ,  k)  *pixel_height’*'i; 

ang ( j , k) =angle (compl ) *180 /pi ; 

vel ( j , k) =abs (conpl) /pulse_dt; 

goodbox( j ,k) =1; 

if  (vel  ( j  ,  k)  >max_velocity  |  vel  ( j ,  k)  <min_velocity  |  .  .  . 
ang(  j,k)>max_angle  |  ang( j  , k) <min_angle) 
difx( j ,k) =0.0; 
dify(j,k)=0.0; 
ang( j,k) =0.0; 
vel(j,k)=0.0; 
goodbox { j / k) =0 ; 

end 

end 

end 

end 

end 

end 

%  Determine  the  total  number  of  boxes  that  were  zero'd 

fprintf ( 'Total  boxes  with  zeros  =  %d  out  of 
%d\n' , length ( find (goodbox==0) ) , length (xbox) *length(ybox) ) ; 

fprintf ( 'or  %.lf  percentXn' , 100 *length( find (goodbox==0) )/ (length (xbox) *length (ybox) ) ) ; 

if  ( length ( find (goodbox==0) ) == length (xbox) *length(ybox) ) 
fprintf ( 'No  vectors  found. . . \n' ) ; 
goodbox= [ ] ; 
break; 

end 

%  Show  on  LTSWin  plot  the  boxes  that  have  data  and  those 
%  that  have  "zeros". 

if  LTSWin==0 

fprintf  (‘No  LTSWin  available  for  displaying  boxes  \n'); 

else 

figure (LTSWin) ; 
clg 

set(gca,  'position',  [0  0  1  1]); 

imshow (imdata  (ulyrect :  Iryrect, ulxrect :  Irxrect)  , mapimdata)  ; 
mbox=length (ybox) ; 
nbox=length(xbox) ; 

set ( gca ,  ' xt ick ' , ( [ 0 : nbox ] *box_width+  0.5)); 

set(gca,  'ytick' , ( [0;mbox] *box_height+0 .5) ) ; 

set (gca,  'yticklabels ’ , [l:mbox] ) ; 

grid  on 

hold  on 

xzero= [ ] ; 

y2ero= [ ] ; 

for  k=l : length (xbox) 

for  j=l: length (ybox) 
if  goodbox( j ,k) ==0 

X2ero=[xzero; (xbox(k) -ulxrect+1) ] ; 
yzero=[yzero; (ybox( j ) -ulyrect+1) ] ; 

end 

end 

end 

%  These  vectors  are  shown  in  color  cyan 

jpbquiv(  (xbox-ulxrect+1)  ,  (ybox-ulyrect+1)  ,difx,dify,  scale,  '  -C  )  ; 
if  xzero~=[] 

plot (xzero,yzero, 'ro'); 

end 

hold  off 
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end 


%  Open  a  HistWin  for  plotting  velocity  &  angle  histograms 

if  {HistWin==0) 

Hi  stWin=  figured- 
orient  landscape 

else 

figure  (HistWin)  ; 
clf 

end 

set  (HistWin,  'name'  ,  filename)  ; 

%  Plot  angle  histogram 

axes  ( 'lanits 'normalized' ,  'position' ,[. 05  .1  .9  .3]) 
hist (ang( find (goodbox) ) ,30) ; 
set (gca,  'xtick' , [-180:10:180] ) ; 
grid  on 

set (gca,  'xlim' , [ (min (min (ang (find (goodbox) ) ) ) -5)  (max (max (ang( find (goodbox) ) ) )+5) ] ) ; 
inang=num2str  (mean  (mean  (ang  ( find  (ang) ) ) ) )  ; 
nmin=num2str  (min_angle)  ; 
nmax=num2  s  tr  ( max_angle )  ; 

title  ([ 'mean=' ,inang,  '  min=',nmin,  '  max= '  ,nmax] )  ; 
xlabel ( ' Angles  in  degrees ' ) ; 

%  Plot  velocity  histogram 

axes ('units', 'normalized', 'position', [.05  ,55  .9  .3]) 
hist  (vel (find (goodbox) ) ,30) ; 
set (gca,  'xtick' , [-5: .5:10] ) ; 
grid  on 

set (gca,  'xlim' , [min_velocity  max_velocity] ) ; 
invel=num2str  (mean  (mean  (vel  ( find  (vel  ))))); 
nmin=num2str  (min_velocity)  ; 
nmax=num2str  (max_velocity)  ; 

title  ([ 'mean= '  ,mvel,  '  min=',nmin,  '  max= '  ,nmax]  )  ; 
xlabel ( 'Velocity  in  m/s ' ) ; 

%  Pause  for  a  second  so  that  the  screen  has  a  chance  to  plot  the 
%  HistWin  before  moving  on.  .  . 

paused)  ; 


end 


% 

%  Title:  jpbquiv.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  CCcorrbox2.m  and  others 

%  Child  subroutine (s) :  xyzchk.m  &  lower. m 

%  Date:  4  Mar  1997 

% 

%  This  program  is  used  to  plot  the  vectors.  It  is  a 
%  modified  version  of  Matlab's  original  quiver. m.  The  only 
%  difference  is  that  this  version  has  a  fixed  scaling  vs. 

%  the  autoscaling  provided  in  quiver .m 

%  The  input  arguments  are  as  follows: 

%  argl  =  x  position  of  vector 
%  arg2  =  y  position  of  vector 
%  arg3  =  dx  of  vector 
%  arg4  =  dy  of  vector 
%  arg5  =  scaling  factor 

%  arg6  =  line  style  for  plotting  (e.g.  '-y'=  yellow  sold  line) 

function  hh  =  jpbquiv(argl,arg2,arg3,arg4,arg5,arg6) 
error (nargchk (2,6, nargin) ) ; 

%  Arrow  head  parameters 

alpha  =  0.33;  %  Size  of  arrow  head  relative  to  the  length  of  the  vector 
beta  =  0.33;  %  Width  of  the  base  of  the  arrow  head  relative  to  the  length 

%  xyzchk.m  does  x,y,u,v  calculation 

[msg,x,y,u,v]  =  xyzchk (argl , arg2 , arg3 , arg4 ) ; 

if  -iseirpty(msg)  ,  error  (msg);  end 
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if  nargin~=6,  %  jpbquiv(x,y,u,v,  scale,  style) 
error { ' need  6  inputs ' ) ; 

else 


u  =  u*arg5; 

V  =  v*arg5; 

ax  =  newplot; 

next  =  lower (get (ax, 'NextPlot' )) ; 
hold_state  =  ishold; 

%  Make  velocity  vectors 

X  =  x(:)  .  •  ;  y  =  y{ ; 
u  =  u( ;  V  =  v( : )  .  '  ; 
uu  =  [x;x+u;NaN*ones (si2e(u) ) ] ; 
w  =  [y;y+v;NaN*ones  (size  (u) )  ]  ; 

sym  =  arg6; 

h  =  plot  (uu  ( : )  ,  w  ( : )  ,  sym)  ; 

%  Make  arrow  heads  and  plot  them 

hu  =  [x+u-alpha* (u+beta* (v+eps) ) ;x+u;  . . . 

x+u~alpha*  (u~beta*  (v+eps) )  ;NaN*ones  (size  (u) )  ]  ; 
hv  =  [y+v-alpha* (v-beta* (u+eps) ) ;y+v;  . . . 

y+v-alpha* (v+beta* (u+eps) ) ;NaN*ones (size (v) ) ] ; 
hold  on 

h=  [h;plot (hu( : ) ,hv{ : ) , sym)  ]  ; 

if  ~hold_state,  hold  off,  view(2) ;  set (ax, 'NextPlot •, next) ;  end 
if  nargout>0,  hh  =  h;  end 

end 


% 

%  Title:  rotpart.m 

%  Author:  Jeffrey  Eons 

%  Parent  program:  rotplist.m  &  CCcorrbox2.m 

%  Child  subroutine (s) : 

%  Date:  22  July  1996 

% 

%  This  program  solves  for  the  new  location  of  a  point 
%  (xnev^ix,ynev^ix)  given  its  old  coordinates  (xoldpix,yoldpix)  ,  the 
%  angular  motion^  (theta  in  radians)  and  the  center  of 
%  rotation  coordinates  (xcpix,ycpix) .  The  pixel  dimensions  are 
%  needed  to  perform  the  rotation. 

function  [xnewpix,ynewpix]  =rotpart {xoldpix,yoldpix,  theta, xcpix, yep ix,pixwid,pixht) 

%  Transfer  all  lengths  from  pixels  to  micrometers 

xold=xoldpix*pixwid; 
xc=xcpix*pixwid  7 
yold=yoldpix*pixht ; 
yc=ycpix*pixht ; 

%  Compute  the  radius  of  the  point  (distance  from  xc,yc) 

rad=sqrt ( (xold-xc) "2+ (yold-yc) ^2) ; 

%  Need  to  iterate  to  find  the  new  coordinates. 

%  This  is  set  up  for  measuring  positive  theta  motion  from 
%  the  upper  left  of  the  figure  to  the  bottom  right  of  the 
%  figure.  So,  generally  it  is  assumed  that  xnew>xold  and 
%  ynew>yold.  Solve  the  equations  accordingly. . . 

xnewl =xold+  5  0 ; 

del=l; 

it=0; 

while  (del>le-9  &  it<500) 

ynew=yc+sqrt  (rad'^2-  ( xnewl -xc)  ^2); 

xnew2=xold+sqrt  (  (2*rad*sin(theta/2)  ) '"2- (ynew-yold)  "2 )  ; 
del=abs ( (xnewl-xnew2) /xnew2 ) ; 
xnewl  =xnew2  ; 
it=it+l; 

end 
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%  with  this  value  for  xnew,  solve  for  ynew  and  convert 
%  back  to  pixels 

xnew=xnewl ; 

ynew=yc+sqrt  (rad'^2-  (xnew-xc)  ^2 )  ; 

xnewpix=xnew/pixwid  ; 
ynewpix=ynew/pixht  ; 

clear  xnew  ynew  xnewl  xnew2  rad  xc  yc  yold  xold 


% 

%  Title:  CCrecorrbox4 .m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  jpbpiv3.m 

%  Child  subroutine (s ) :  centroidfit .m,  descend. m,  &  corrmap.m 

%  Date:  25  Mar  1997 

% 

%  This  program  is  used  to  have  a  second  look  at  boxes  which 
%  didn't  correlate  well  in  CCcorrbox3 . m . 

%  Must  have  vel  &  ang  data  &  box  coordinates  &  parameters  to  proceed. 

if  (xbox==[]  I  pixel_width== [ ]  |  pixel_height== [ ]  |  box_width== [ ]  |... 
box_height== [ ]  |  pulse_dt== [ ]  |  max_velocity== [ ]  I • - . 
niin_velocity==  [  ]  |  min_angle==  [  ]  |  inax_angle==  [  ]  |  .  .  . 
rotf req_rps==  [  ]  |  xcntr_pix==  [  ]  1  ycntr_pix==  [  ]  |  absmean==  [  3  |  ... 
ang==[]  |  vel==[]  |  lftxnew==[]  |  lftynew==[]  |  reduce==[]  |... 
goodbox==[]  |  ulyrect==[3  |  ulxrect==[]  |  lryrect==[]  |  lryrect==[]) 
fprintf ( 'Error:  Need  velocities,  boxes  and  parameters  first! l\n'); 

else 

%  Print  the  status  from  CCcorrbox3  before  recorrelating 

fprintf { ' \ nS tep\ told- >New\ tZeros \tBoxes\tPer cent ' ) ; 
numz=length{find(ang==0  &  vel==0) ) ; 

fprintf  ( '  \nl. 0\t0\t\t%d\t%d\t%. Of  '  ,numz,  length (xbox)  *length(ybox) ,  (100*numz/length(xbox)  /length (ybox 


%  Loop  through  this  program,  each  time  lowering  "zzz"  so  that 
%  the  search  region  is  being  narrowed  each  time  in  the  hope  of 
%  finding  a  good  vector  (or  one  that  is  closer  to  its  neighbors 
%  than  the  one  foimd  in  CCcorrbox3 . 

redo=ones(size(goodbox) ) ; 
clianged=  zeros  (size  (goodbox) )  ; 
numnewtot=0  ; 
for  zzz=0.9:-0.1:0,3 
numnew=0; 

%  Here's  the  for  loop  for  boxes,  k  &  j 

[inmax,nmax]  =size  (imdata)  ; 
for  k=l: length (xbox) 
for  j=l .‘length (ybox) 

%  for  k=l : 1 
%  for  j=l:l 

w=  (k-1)  *  length  (ybox)  +j  ; 


%  If  "redo"  =  0,  then  I've  already  tried  unsuccessfully  to  find 
%  correlation  peaks  for  this  box  and  there's  no  need  trying  again. 

%  So,  only  continue  if  redo ( j , k) ==1 . 

if  redo(j,k)==l 

%  Review  the  ang  &  vel  data  in  the  boxes  surroimding  (j,k) 

%  to  see  what  the  average  values  are. 

anglist= [ ] ; 
vellist= [ } ; 
for  g=(k-l) : (k+1) 

for  h=(j-l) : (j+1) 

if(  g>0  &  g<=length(xbox)  &  h>0  &  h<=length(ybox)  &  (g--=k  |  h-'= j ) ) 
anglist=[anglist;ang(h,g) 3 ; 
vellist=[vellist;vel (h,g) 3 ; 
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end 


end 

end 

ff=[]; 

fd=[]; 

ff=find{anglist) ; 
fd=find(vellist) ; 

%  If  all  of  the  surrounding  boxes  are  also  zero’d  (no  vector 
%  yet)  then  skip  this  box  and  come  back  to  it  on  the  next  pass 
%  in  "zzz" . 

if(ff-=[]  &  fd~=[]) 

%  Find  the  average  angle  and  velocity  of  the  ’’non-zero”  neighboring 


avgang=mean(anglist (ff) ) ; 
avgvel=qnean(vellist  (fd)  )  ; 

%  If  ang  and  vel  at  (j,k)  are  within  a  fraction  of  the 
%  distance  to  the  current  limits  from  the  average  values 
%  around  it,  then  don’t  redo  it .. .else. . .proceed 

nmaxang=avgang+  {inax_aaigle-avgctng)  *zzz; 
if  min_angle>=0 

nminang=avgang-  (avgang“min_angle)  *z2z  ; 

else 

nminang=avgang- (avgang-0 . 0 ) *2zz ; 

end 

nmaxvel=avgvel+  (max_velocity-avgvel)  *z2z; 
nminvel=avgvel-  (avgvel-min_velocity)  *zzz; 

if(  ang{j,k)>nmaxang  |  ang( j , k) <nminang  ... 

I  vel{j,k)>nmaxvel  |  vel  ( j  ,k)  <nminvel  ) 

%  Now  review  the  correlation  analysis  done  in  CCcorrbox3  .m,  this  time 
%  searching  within  a  tighter  min/max  angle  and  velocity  band  to 
%  see  if  a  new  peak  can  be  found.  The  new  peak  must  be  significant 
%  (within  some  threshold  of  the  previous  peak)  . 

%  Use  the  original  min/max  velocity  &  angle  limits  to  compare  any 
%  new  peaks  to  the  previous  maximum. 

%  Compute  delta  yst=  original  yst  -  new  yst  for  defining 
%  the  reduced  search  area,  yst,  yend,  etc...  are  available  from  Ddata. 

yst=r)data  (w,  1)  ; 
yend=Ddata  (w,  2 )  ; 
xst=Ddata (w,  3 ) ; 
xend=Ddata(w,4)  ; 

if  nminvel>=0.0 

dyst=abs  (yst-round (If tynew ( j  , k)  +nminvel*pulse_dt .  .  . 
*cos  (max(  [abs  (90-nmaxang)  abs  (90-nminang)  ]  >  .  .  . 
*pi/180 )  /pixel_height-0 . 5*  (box_height-l ) ) )  ; 

else 

dyst=abs (yst-round(lftynew(j ,k) +. . . 

nminvel*pulse_dt/pixel_height-.  .  . 

0.5* (box_height-l) ) ) ; 

end 

if  (nminang<=90  &  nmaxang>=90) 

dyend=abs (yend-round(lftynew( j , k) . . . 
+nmaxvel*pulse_dt/pixel_height  .  .  . 

+0 . 5* (box_height-  1))); 

dxst=abs(xst-round(lftxnew(j,k)  -ninaxvel*pulse_dt .  .  . 
*sin(  (nmaxang-90)  *pi/180)  /pixel_width.  .  . 

-0 . 5* (box_width-l) ) ) ; 

dxend=abs  (xend-round  (If  txnew(  j ,  k)  +nmaxvel*pulse_dt 
*sin(  (90-nminang)  *pi/180)  /pixel_width. .  . 

+0.5* (box_width-l) ) ) ; 

%  If  the  limits  don’t  include  90  degrees,  need  to  adjust  the 
%  region. 


else 

dyend=abs  (yend-round  ( If  tynew  ( j  ,  k)  +n2naxvel*pulse_dt 
*cos  (min(  [abs  (90-ninaxang)  abs  (90-nminang)  ]).. . 
*pi/180) /pixel_height+0.5* (box_height-l) ) ) ; 
if  (nminang>90) 

dxst=abs (xst-round(lftxnew( j ,k) -nmaxvel*pulse_dt 
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*sin(  {nmaxang~90)  *pi/180}  /pixel_width.  .  . 

-0 . 5* {box_width-l) ) ) ; 

dxend=abs  (xend-round ( 1  f  txnew  ( j  /  k)  -nininvel*pulse„dt 
*sin{  (iiminang-90)  *pi/180)  /pixel^width.  .  . 

+0.5* {box_width-l) ) ) ; 

else 

dxst=abs  {xst~round  (If  txnew  (j  ,  k)  +nminvel*pulse_dt . . 
*sin(  (90-ninaxang)  *pi/180)  /pixel_width.  .  . 

“0.5* {box_width-l) ) ) ; 

dxend~abs  (xend-round  ( If  txnew  ( j  ,  k)  +ninaxvel*pulse_dt 
*sin(  (90-ninincing)  *pi/180)  /pixel_width. . . 

+0.5* (box_width“l )  )  )  ; 

end 

end 

%  If  this  region  extends  beyond  the  limits  of  irndata,  then  can't 
%  process .. .or .. .if  the  entire  search  region  is  only  3x3  or  less, 

%  there's  no  sense  in  recorrelating  it.  Ddata(w, 5:6)  contains 
%  the  size  of  D.  If  it's  0x0  then  it's  beyond  bounds. 

Dm=Ddata (w, 5) ; 

Dn=Ddata (w, 6) ; 
if  (  Dm<4  &  Dn<4  ) 
newdifx=0 . 0; 
newdify=0 . 0 ; 
newang=0.0; 
newvel=0.0; 
redo(j,k)=0; 
else 

%  Retrieve  the  cross -correlation  map  "D"  from  the  Ddata  archive. 


D=[]; 

D=reshape  (Ddata  (w,  7  :  ( 6+Dm*Dn)  )  ,  Dm,  Dn)  ; 

%  Retrieve  the  corrpeaks  matrix  from  the  Pksdata  archive. 
corrpeaks= [ ] ; 

corrpeaks =reshape  (Pksdata  (w,  1 :  (Dm*Dn) ) ,  Dm,  Dn)  ; 

%  Find  the  maximum  value  of  D,  only  looking  at  peaks 
summit=inax  (max  (D.  *  corrpeaks)  )  ; 

%  Create  a  smaller  D  matrix  only  covering  the  limited  region 
%  being  searched  on  this  pass 

Dpart=D( (1+dyst) : (Dm-dyend) , (1+dxst) : (Dn-dxend) ) ; 

%  Look  in  Dpart  to  find  any  peak 

corrpeakspart=corrpeaks  ( (1+dyst)  :  (Dm-dyend)  .  . . 

, (1+dxst) : (Dn-dxend) ) ; 
nextpk=inax  (max  (Dpart .  *corrpeakspart )  )  ; 

%  If  there  were  no  peaks,  or  if  there  is  no  new  peak  within  "reduce"  of 
%  "summit",  then  there's  no  reason  to  continue 

if  ( find ( corrpeaks ) ==[]  |  find ( cor rpeakspart )==[].. . 
I  summit *reduce>nextpk) 
newdifx=0 . 0 ; 
newdify=0 . 0  ; 
newang=0 . 0; 
newvel=0 . 0; 
redo( j ,k)=0; 

else 

%  Find  the  position  of  this  maximum  in  D,  correcting  Dpart 
%  indices  for  xst  and  yst 


[a,b]  =max(i:part. *corrpeakspart)  ; 

[c,d]  =max(a)  ; 
colmx=d+dxst ; 
rowmx=b ( d ) +dy s  t ; 

%  Better  this  with  a  sub-pixel  correlation  using  an  area  centroid 
%  fit  to  the  near-maximixm  portion  of  the  D  matrix. 

%  First  find  the  extent  of  the  maximum  portion  of  the 
%  correlation. 


Drat= [ ] ; 
Drat=D/ summit ; 


190 


dir=[0  1;-1  1;-1  0;-!  -1;0  -1;1  -1;1  0;1  1] ; 
steps=[] ; 
val= [ ] ; 
for  m=l:8 

[steps  (m)  ,val  (m)  ]  =descend( Drat, colnix,rowmx, dir  (m,  : ) )  ; 
end 

%  Proceed  to  form  a  region  about  this  max  point  using  corrmap. 

indl=[8  1  2  ;  2  3  4  ;  4  5  6  ;  6  7  83 ; 
for  1=1 : 4 

maxextS (l)=max( [steps (indl (1, 1) ) . . . 

steps (indl (1,2) )  steps (indl (1, 3) ) ] ) ; 

end 

Dfit=[]; 

[Df it]  =corrmap  (Drat,  colmx, rowmx,  steps , mean (val)  ,maxext3 ) 

%  Adjust  the  max  position  (colmx, rowmx)  in  the  case  that  size(Dfit)< 

%  size  (Drat)  to  follow  the  true  max  position. 

ymaxdfit=maxext3  (2)+l; 
xinaxdfit=maxext3  (3)+l; 

%  Fi^ther  refine  the  correlation  map  by  zeroing  out  all  pixels 
%  with  a  value  <  mean  (val)  .  Then  perform  a  centroid  fit. 

Dfit=Dfit-mean(val) ; 

DfiUfind(Dfit<0) )  =zeros  (size  (find (Dfit<0) ) )  ; 

ff=find(Dfit<  (0,75*max(max(Dfit)  ))); 

Dfit (ff ) =zeros (size(ff ) ) ; 

[xcntg,ycntg3  =centroidfit (Dfit) ; 

%  Store  the  resulting  correlation  refinement  in  newdifx,newdify 

newdifx=xst+colinx-l+xcntg~xmaxdfit+. .  . 

0 . 5* (box_width-l) -If txnew( j , k) ; 
newdify=yst+rowmx-l+ycntg-ymaxdfit+ .  .  . 

0.5*  (box_height-l )  -If  tynew  ( j  ,  k)  ; 
coitpl=newdifx*pixel_wi  dth+newdify*pixel_height*  i  ; 
newang=angle  (compl )  *180 /pi  ; 
newvel=abs  (cortpl)  /pulse_dt; 

%  If  this  newdifx,newdify  results  in  a  vel  or  ang  outside  of  max/min 
%  then  delete  it. 


if  (newvel>nmaxvel  |  newvel<nminvel  |  .  .  . 
newang>nmaxang  |  newang<nminang) 
newdifx=0 . 0; 
newdify=0 . 0 ; 
newang=0 . 0 ; 
newvel=0. 0; 

end 

end 

end 

%  If  a  new  vel /ang  are  foixnd,  take  it 

if  (newvel~'=0  |  newang~=0) 

if  (vel(j,k)-=0  &  ang(  j  ,k)-'=0) 
nuinnew=numnew+l ; 

end 

di  f  X  ( j ,  k )  =newdi  f  x  ; 
di  f  y  ( j ,  k )  =newdi  f  y  ; 
cuig  ( j  /  k)  =newang ; 
vel  ( j  ,  k)  =newvel ; 
goodbox( j,k)=l; 
changed (j,k)=l; 

end 

end  %  within  reduced  vel /ang  range  conditional 
end  %  no  neighboring  vector  conditional 
end  %  end  of  redo  conditional 
end  %  end  of  j  loop 
end  %  end  of  k  loop 

%  Determine  the  total  number  of  boxes  that  are  still  zero  and 
%  the  %  of  boxes  tliat  are  filled  with  averages  rather 
%  than  data. 

numz=length(find(ang==0  &  vel==0)); 
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fprintf  { '  \n%.2f\t%d\t\t%d\t%d\t%.0f  ' ,  222,  nojmnew.nuinz,  length  (xbox)  *  length  (ybox)  ,  ( 10  O^niomz /length  {xbox 
) /length (ybox) ) ) ; 

nuinnewtot=nuinnewtot+nuinnew ; 

end  %  end  of  "zzz"  FOR  loop 

fprintf { ' \nTotal  changes  =  %d' ^numnewtot) ; 

fprintf ( ' \nUnigue  changes  =  %d\n' , length (find (changed) ) ) ; 

%  Show  on  LTSWin  plot  the  boxes  that  have  data  and  those 
%  that  have  "zeros”.  The  new  vectors  are  green. 

if  LTSWin==0 

fprintf ('No  LTSWin  available  for  displaying  boxes  \n'); 

else 

figure (LTSWin) ; 
inbox=length(ybox)  ; 
nbox=length(xbox )  ; 
hold  on 
xzero= [ ] ; 
yzero= [ ] ; 

for  k=l : length (xbox) 

for  j=l: length (ybox) 
if  goodbox( j ,k) ==0 

xzero= [xzero; (xbox(k) -ulxrect+1) ] ; 
yzero= [yzero; (ybox( j ) -ulyrect+1) ] ; 

end 

end 

end 

jpbquiv(  (xbox-ulxrect+1) ,  (ybox-ulyrect+1)  ,difx,  dify,  scale,  '-g'  )  ; 
if  xzero~=n 

plot  (xzero, yzero,  'ro' )  ; 

end 

hold  off 

end 

%  Open  a  HistWin  for  plotting  velocity  &  angle  histograms 

if  (HistWin==0) 

HistWin=figure; 
orient  landscape 

else 

figure  (HistWin)  ; 
clf 

end 

set (HistWin, ' name ' , filename) ; 

%  Plot  angle  histogram 

axes ( 'units ', 'normalized' , 'position' ,[ .05  .1  ,9  .3]) 
hist (ang( find (goodbox) ) ,30) ; 
set(gca,  'xtick' , [-180 :10 : 180] ) ; 
grid  on 

set(gca,  'xlim' ,  [  ( min  ( min  (ang(  find  (goodbox) ) )  )-5)  ( max  ( max  (ang(  find  (goodbox)  ) )  )+5)  ] )  ; 
mnangle=mean  (mean  (ang  ( find  ( ang)  ))); 
inang=num2str  (mnaingle)  ; 

stdangle=sqrt (mean (mean ( (ang ( find (ang) ) -mnangle) .* (ang (find (ang) )-mnangle) ) ) ) ; 
s  tdang=ntim2  s  t  r  ( s  t  dangl  e )  ; 
nmin=num2str  (min_angle)  ; 
nmax=num2str  (max_angle)  ; 

title  ([ 'inean=' ,inang, 'std=' ,stdang,  '  min=: '  ,nmin,  '  inax=  '  ,nmax] )  ; 
xlabel ( ' Angles  in  degrees ’ ) ; 

%  Plot  velocity  histogram 

axes ( 'units ', 'normalized' , 'position' ,[ .05  .55  .9  .3]) 
hist (vel (find (goodbox) ) ,30) ; 
set(gca,  'xtick' , [-5 : . 5 : 10] ) ; 
grid  on 

set  (gca,  'xlim' ,  [min_velocity  inax_velocity] )  ; 
innvel=mean  (mean  (vel  ( find  (vel ) ) ) )  ; 
mvel=nuin2str  (mnvel)  ; 

stdveloc=sgrt  (mean  (mean  (  (vel  ( find  (vel ) )  -mnvel )  .  *  (vel  ( find  (vel) )  -mnvel  )))); 
stdvel=num2str (stdveloc) ; 
nmin=num2str  (min_velocity)  ; 
nmax=num2str  (max_velocity)  ; 

title  (  [ '  mean= '  ,mvel ,  '  std= ' ,  stdvel ,  '  min=  ' ,  nmin,  '  max=  ' ,  nmax] )  ; 
xlabel  ( 'Velocity  in  m/s ' )  ; 

end  %  end  of  inputs  conditional 
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Title :  CCredovect2 .m 
Author:  Jeffrey  Bons 
Parent  program :  j  pbp iv3 . m 

Child  subroutine (s) :  centroidf it .m,  descend. m,  &  corrmap.m 
Date:  25  Mar  1997 

This  program  is  used  to  redo  a  single  vector  processed 
by  CCcorrbox3.m  &  CCrecorrbox4 . 

%  Must  have  vel  &  ang  data  &  box  coordinates  &  parameters  to  proceed. 

if  (xbox==[]  I  pixel_width==  E ]  |  pixel_height==  [ ]  |  box_width=:=  [ ]  1... 
box_height==  [  ]  |  pulse_dt==  [  ]  |  inax_velocity==  [  ]  j  .  .  . 
min_velocity==  [  ]  |  min_angle==  [  ]  j  inax__angle==  [  ]  |  .  .  . 
rotf req_^s==: E ]  |  xcntr^ix==E]  I  ycntr_pix==  E ]  |  absmean==E]  I  ... 
ang==E]  |  vel==E]  |  lftxnew==E]  |  lftynew==E]  |  reduce==E]  1... 
goodbox==E]  |  ulyrect=r=E]  |  ulxrect==E3  1  lryrect==E]  |  lryrect==E]) 

fprintf (' Error :  Need  velocities,  boxes  and  parameters  first! I \n'); 

else 

%  User  can  specify  the  vector  to  redo  by  mouse-clicking  the  vector  in 
%  the  LTSWin  figure. 

if  LTSWin==0 

fprintf ('No  LTSWin  available  for  displaying  boxes  \n'); 
else 

figure (LTSWin) ; 

fprintf ( 'Mouse- select  1  vector  to  redo  (exit=below  boundary):  \n'); 

Exredo , yredo ] =ginputc (1); 
xboxredo=ceil(xredo/box_width) ; 
yboxredo=ceil (yredo /box_height) ; 

numchng=0; 
numlook=0  ; 

while  xboxredo>=0  &  xboxredo<=length(xbox)  &  ... 

yboxredo>=0  &  yboxredo<=length(ybox) 

Einmax,nmax]  =size  (imdata) ; 
k=xboxredo ; 
j=yboxredo; 

w=  (k-1 ) * length (ybox) + j ; 

%  Review  the  ang  &  vel  data  in  the  boxes  surrounding  (j,k) 

%  to  see  what  the  average  values  are. 

anglist=E] ; 
vellist=  E] ; 
for  g=:(k-l)  :  (k+1) 

for  h=(j-l) : (j+1) 

if(  g>0  &  g<= length  (xbox)  &  h>0  &  h<=length  (ybox)  &  (g‘-=k  |  h-^j)) 
anglist=Eanglist;ang(h,  g)  ]  ; 
vellist=Evellist;vel  (h,g)  ]  ; 

end 

end 

end 

ff=[]; 

fd=E]; 

f f=find(anglist) ; 
fd=find(vellist) ; 

avgang=mean ( angl is t (ff)); 
avgvel=mean(vellist  (fd) )  ; 

fprintf (' \nAverage  of  neighbors:  vel  =  %.2f  ang  =  %.lf\n',avgvel,avgang); 
fprintf (• Current  vector:  vel  =  %.2f  ang  =  %.2f\n',vel<j,k),ang(i,k)); 
prevvel=vel ( j , k) ; 
prevang=ang ( j , k) ; 

%  Read  in  the  D  matrix  from  the  Ddata  archive 

yst=Ddata(w, 1)  ; 
yend=Ddata  (w, 2 ) ; 
xst=Ddata (w,  3) ; 
xend=Ddata (w, 4 ) ; 
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Dm^Ddata  {w,  5)  ; 
Dn=Ddata  {w,  6)  ; 


%  If  this  region  extends  beyond  the  limits  of  imdata,  then  can't 
%  process , . . 

-if  (xend>ninax  |  xst<l  |  yst<l  |  yend>iTiinax) 

fprintf ( 'Correlating  region  beyond  bounds . . . \n* ) ; 

else 

%  Retrieve  the  cross-correlation  map  "D"  from  the  Ddata  archive. 


D=[]; 

D=reshape (Ddata (w, 7 : ( 6+Dm*Dn) ) , Dm, Dn) ; 

%  Retrieve  the  corrpeaks  matrix  from  the  Pksdata  archive. 
corrpeaks= [ ] ; 

corrpeaks =reshape  (Pksdata  (w,  1 :  (Dm*Dn) ) , Dm, Dn)  ; 

%  Print  all  the  peaks  and  their  corresponding  ang  vel  for  selection 
DC-E]; 

DC=D . *corrpeaks ; 

fprintf  ( '  #\tintens/suinmit\testvel\testang\n' )  ; 
for  v=l :  length  ( find  (corrpeaks ) ) 

[a,b]=max(DC)  ; 

[intpk(v)  ,colpk(v)  ]  =max(a)  ; 
rowpk  (v)  =b  (colpk  (v) )  ; 

estdifx=xst+colpk(v) -1+0.5* (box_width-l) -Iftxnew ( j , k) ; 
estdify=yst+rowpk(v) -1+0.5*  (box_height-l)  -lftynew(  j  ,k)  ; 
compl=estdifx*pixel_width+estdify*pixel_height*i; 
estang=angle(compl) *180/pi; 
estvel=abs  (compl)  /pulse_dt; 

DC  (rowpk  (v)  ,  colpk  (v)  )=0; 
if  100*intpk(v) /intpk(l) >40 

fprintf ( '%d\t%.Of\t\t%.lf\t%.lf\n'  ,v,  . . . 

100*intpk(v) /intpk(l) ,estvel,estang) ; 

end 

end 

%  Show  the  D  matrix  in  the  window  CorrWin 

if  (CorrWin==:0) 

CorrWin= figure ; 

else 

figure  (CorrW  in) 
clf 

end 

axes ( 'position' , E , 1  .1  .8  .4]); 
contour  (D,  20); 

eixes  ( 'position' ,[.  1  .55  .8  .4]); 
surf  (D)  ; 
view (3 8, 60) ; 

%  Allow  user  to  select  vector  of  choice 
numsel= [ ] ; 

numsel=input  (' Select  vector  by  #  <0  =  none  &  delete  c\irrent>:  ') 
if  isempty  (numsel)  |  numsel==0  |  nuinsel>length  ( find  ( corrpeaks )  ) 
nijmsel=0 ; 
difx(  j  ,  k)  =0 . 0; 
dify  ( j ,k) =0.0; 
ang(j,k)=0.0; 
vel ( j , k) =0 . 0 ; 
goodbox ( j , k) =0 ; 

else 

%  If  none  were  selected,  delete  the  current  (if  any)  vector.  If  a  new 
%  vector  is  selected.  .  .refine  the  sing  and  velocity  estimates. 

%  First  find  the  extent  of  the  maximum  portion  of  the 
%  correlation. 

Drat= [ ] ; 

Drat=D/intpk(l) ; 

dir=[0  1;-1  1;-1  0;-l  -1;0  -1;1  -1;1  0;1  1] ; 

steps=[] ; 

val=[]; 
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for  m=l:8 

[steps  (m)  ,val(m)  ]  =descend{Drat,  colpk(niiinsel) ,  rowpk(numsel)  ,dir(m,  :)  )  ; 

%  Proceed  to  form  a  region  about  this  max  point  using  corrmap. 

indl=[8  1  2  ;  2  3  4  ;  4  5  6  ;  6  7  81 ; 
for  1=1:4 

maxextS { 1 ) =max { [ steps ( indl  (1,1))... 

steps (indl (1,2) )  steps (indl (1,3) )] ) ; 

end 

Dfit=[]; 

[Df  it  ]  -corrmap  (Drat ,  colpk  (numsel ) ,  rowpk  (numsel ) ,  steps , mean  (val ) , maxext3 ) ; 

?  -^^^ust  the  m^  position  ( colpk  (numsel ),  rowpk  (numsel ) )  in  the  case 
%  that  size(Dfit)<  size  (Drat)  to  follow  the  tirue  max  position. 

ymaxdfit=maxext3  (2)+l; 
xmaxdf  it=maxext3  ( 3 )  +1  ; 

%  Fi^ther  refine  the  correlation  map  by  zeroing  out  all  pixels 
%  with  a  value  <  mean  (val)  .  Then  perform  a  centroid  fit. 

Dfit=Dfit-mean(val)  ; 

Dfit  Uind(Dfit<0) )  =zeros  (size{  find{Dfit<0) ) ) ; 

ff=find(Dfit<(0.75*inax(max(Dfit)  ))); 

Dfit(ff)=zeros{size{ff) ) ; 

[xcntg,ycntg] =centroidfit (Df it) ; 

%  Store  the  resulting  correlation  refinement  in  difx,dify 
%  for  processing  by  plotrotvel.m 

difx( 3 , k) =xst+colpk (numsel ) -l+xcntg-xmaxdfit+ . . . 

0-5*(box_width~l)-lftxnew(j,k); 
dify (j,k)=yst+rov^k (numsel )-l+ycntg-ymaxdfit+, .  . 

0.5*  (box_height-l )  -If tynew ( j ,  k)  ; 
compl=difx(3  / k)  *pixel_width+di f y  { j ,  k)  *pixel_height*i; 
ang(j,k)=angle(compl)  *180/pi; 
vel  ( j ,  k)  =abs  ( compl )  /pulse_dt  ; 
goodbox(j  ,k)=l; 

end  ang  =  %.2f  \n' ,vel  ( j  ,k) ,  ang(  j  ,k) )  ; 

end 

fprintf (* Mouse-select  1  vector  to  redo  (exit=below  boundary)*  \n') • 
figure  (LTSWin) ;  /  •  x  /  / 

[ xredo , yredo ] =ginputc (1); 
xboxredo=ceil{xredo/box_width) ; 
yboxredo=ceil (yredo /box_height) ; 

if  abs(prevvel-vel(j,k) )>0.1  (  abs (prevang-ang ( j , k) ) >0 . 5 
numchng=numchng+l ; 

end 

numlook=n\jmlook+l  ; 
end  %  end  of  while  loop 

fprintf ( ' \nBoxes  checked:  %d\n' ,numlook) ; 
fprintf { ' Boxes  changed :  %d\n ' , numchng) ; 

%  Show  on  LTSWin  plot  the  new  vector  or  zero  with  the  old. 

figure (LTSWin) ; 
hold  on 
xzero= [ ] ; 
yzero= [ ] ; 

for  k=l: length (xbox) 

for  j=l : length (ybox) 
if  goodbox( j ,k)==0 

xzero=[xzero; (xbox{k) -ulxrect+1) ) ; 
yzero= [yzero; (ybox( j ) -ulyrect+1) ]  ; 

end 

end 

end 

jpbguiv{  (xbox-ulxrect+1) ,  (ybox-ulyrect+1)  ,difx,  dify,  scale  '  -y  ’ )  • 
if  xzero~=[]  •  X  I  • 

plot (xzero, yzero, 'ro') ; 

end 

hold  off 

%  Open  a  HistWin  for  plotting  velocity  &  angle  histograms 
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if  (HistWin==0) 

Hi stWin= figure ; 
orient  landscape 

else 

figure  (HistWin)  ; 
clf 

end 

set {HistWin, 'name' , filename) ; 

%  Plot  angle  histogram 

axes ( 'units' , 'normalized' , 'position' ,[ .05  .1  .9  .3]) 
hist {ang( find (goodbox) ) ,30) ; 
set(gca,  'xtick' , [-180:10:180] ) ; 
grid  on 

set{gca,  'xlirn' ,  [  {min(inin{ang(  find  (goodbox) ) ) )  -5)  {max(niax(ang(  find  (goodbox) ) )  )+5)  ] )  ; 
mnangle=anean  (mean  ( eing  ( find  ( ang) ) ) )  ; 
itiang=num2str  (mnangle)  ; 

stdangle=sqrt (mean (mean ( (ang (find (ang) ) -mnangle) .* (ang (find (ang) ) -mnangle) ) ) ) ; 
stdang=num2str  (stdangle)  ; 
nmin=num2str  (min_angle)  ; 
nmax=num2str  (max_angle) ; 

title  ([ 'mean=' ,mang,  '  std=' ,  stdang,  '  min=',nmin,  ’  max= '  ,nmax] ) ; 
xlabel ( ' Angles  in  degrees ' ) ; 

%  Plot  velocity  histogram 

axes ( 'units 'normalized' , 'position' ,[ .05  .55  .9  .3]) 
hist (vel (find(vel) )  ,  30)  ; 
set(gca,  'xtick' , [-5: .5:10] )  ; 
grid  on 

set(gca,  'xlirn' , [min_velocity  max_velocity] ) ; 
mnvel=mean (mean (vel  (find (vel) ) ) ) ; 
irtvel=num2str  (mnvel)  ; 

stdveloc=sqrt  (mean (mean ( (vel  (find (vel) )  -mnvel)  .  *  (vel  (find (vel) )  -mnvel)  ))); 
stdvel=num2str  (stdveloc)  ; 
nmin=num2str  (min_yelocity) ; 
nmax=num2str  (max_velocity)  ; 

title  ([ 'mecui= '  ,mvel,  '  std= ',  stdvel,  '  min=',nmin,  '  max=  ’  ,nmax] )  ; 
xlabel  ( 'Velocity  in  m/s  '  )  ; 
end 
end 


% 

%  Title:  CCprepplot.m 

%  Author:  Jeffrey  Bons 

%  Parent  program:  jphpivS 

%  Child  subroutine (s) : 

%  Date:  6  Mar  1997 

% 

%  This  program  prepares  data  to  be  plotted  as  vectors, 

%  contour  plots,  and  histograms  using  CCplot.m 
%  given  the  information  yeilded  from  CCcorrbox.m  &  CCcleanup.m 

%  If  these  programs  haven't  been  run  yet,  can't  plot... 

if  (xbox==[]  I  pixel_width==  [ ]  |  pixel_height==  [ ]  |... 
xcntr_pix==  [ ]  |  ycntr_pix==  [ ]  |  pulse_dt==[]  |... 
ang==[]  |  vel==[]  |  lftxnew==[]  |  lftynew==[]  |... 
difx==[]  I  dify==[]  |  cammotion== [ ] ) 

fprintf ( 'Error:  Need  velocities,  boxes  and  parameters  first !! \n' ) ; 

else 

%  Now,  I  want  to  compute  the  coordinates  of  each  box  center  in  a  frame 
%  of  reference  fixed  to  the  rotating  passage  rather  than  the 
%  x,y  relative  to  the  comer  of  the  camera  frame. 

%  To  do  this,  I  must  enter  a  point  which  designates  the  center  of 
%  the  right  test  section  view  then  I  can  compute  the  angle  "alpha" 

%  between  the  two  reference  frames  (the  test  section  &  the  camera 
%  frame)  . 

%  For  stationary  PIV,  if  "alpha"  already  exists,  then  use  it. 
if  rotfreq_rps==0  &  alpha~=[] 

fprintf ( 'Using  current  alpha=%.2f  degreesXn' , alpha* 180 /pi) ; 

else 
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%  For  rotating  PIV,  allow  use  of  current  alpha  if  desired. 

ansq= ' n ’ ; 
if  alpha-'=[] 

fprintf( 'Current  alpha  is  %.2f  degrees\n',alpha*180/pi); 
ansq= input (' Use  current  alpha?  (y/n)  <n>:  ’,'s’); 
if  iseirpty  (ansq) 
ansq='n'  ; 

end 

end 

%  If  ImgeWin  is  available  use  ginputc,  if  not  then  enter  the 
%  pixel  coordinates  manually. 

if  ansq=='n’ 
if  IniageWin==0 

Enter  x  pixel  of  right  test  section  image  center*  ')* 
yts=240;  ■  >> 

else 

figure  (ImageWin)  ; 

fprintf {' Select  right  test  section  image  center ... \n' ) ; 

[xt  s ,  y ts  ]  =ginputc  ( 1 )  ; 
yts=240; 

end 

%  Now  coirpute  the  angle  between  the  radial  (axial)  direction  in  the 
%  test  section  frame  and  the  x  direction  in  the  camera  frame. 

%  If  the  portion  of  the  test  section  in  view  is  NOT  the  center 
%  then  the  calculation  is  more  convoluted. . . 

%  TSoffset=inputC Enter  TS  shield  offset  in  urn  (+=TS,  -=LS)  <0>'); 

%  if  iserrpty(TSoffset) 

%  TSoffset=0; 

%  end 

TSoffset=0; 
if  TSoffset==0 

(yts-ycntr_pix)  *pixel_height/  (xts-xcntr_pix)  /pixel_width) 
alpha=atan( (yts-ycntr_pix) *pixel_height/ (xts-xcntr_pix) /pixel_width) 


%  alpha  is  in  radians 


if (alpha<0) 

alpha =pi+alpha ; 

end 

fprintf ('Test  section  angle  is,  alpha 
else 

fprintf ( 'Using  current  alpha. . . \n' ) ; 
end 
end 


%.2f\n' ,alpha*180/pi) ; 


%  Now  with  the  angle  alpha  determined,  I  can  convert  from  x,y  in 
%  frame  of  reference  to  coordinates  in  test  section  frame. 

%  The  distance  from  the  test  section  inlet  to  the  alignment  tool 
%  cross  is  38200  microns  in  the  radial  direction  (notebook  pg.  63). 
%  This  IS  considered  to  be  the  "home"  position  of  the  camera. 

%  If  the  picture  being  processed  is  offset  from 

%  the  "home"  position  of  the  camera,  the  amount  of  offset 

%  IS  =cammotion  from  the  front  panel  (assume  it  is  all  radial) . 

delts=38200+cammotion; 

%  Compute  the  coordinates  of  the  upper- left  comer  of  the  camera 
%  frame  (x=0,y=0)  in  the  test  section  coordinates  (del,eps) 

dts=sqrt ( (xts-1) ^2*pixel_width^2+ (yts-1) ^2*pixel  height^2) ; 
epscmr=dts*cos  ( (pi/2-alpha)  + . . . 

atan(  (yts-1)  *pixel_height/  (xts-1)  /pixel  width) )  ; 
delcrnr=delts-dts*sin( (pi/2-alpha) + . . . 

atan( (yts-1) *pixel_height/ (xts-1) /pixel_width) ) ; 

%  Now  loop  through  all  the  box's  rotated  center  coordinates 
%  (Iftxnew, Iftynew)  and  convert  them  to  test  section 
%  coordinates  by  first  referencing  them  to  the  camera 
%  frame  corner  and  then  to  the  new  coord  system. 

%  Also,  decompose _  the  pixel  distances  (difx,dify)  into 
%  distances  relative  to  the  test  section  axis  using  alpha. 
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delbox= [ ] ; 
epsbox= [ ] ; 
difdel=[]  ; 
difeps=  ti ; 

for  k=l : length (xbox) 

for  j=l : length (ybox) 

di f del  (j  ,k)=:sin( alpha )  *dify(j  ,k)  *pixel_height+ .  .  . 

cos  (alpha)  *difx  ( j ,  k)  *pixel_wxdth; 
difeps  { j  ,  k)  =cos  (alpha)  *dify  ( j  ,  k)  *pixel_height- .  .  . 

sin  (alpha)  *difx  ( j  ,  k)  *pixel_width; 
b€tabx=atan(lftxnew(  j  ,k)  *pixel_width/lftynew(  j  ,  k)  .  . . 

/pixel_height) - (pi /2 -alpha) ; 
dp=sqrt  ( (lftxnew(  j  ,  k) -1) '"2*pixel_width^2+ .  .  . 

(lftynew(  j  ,k)  -1)  ^2*pixel_height^2)  ; 
epsbox  ( j ,  k)  =epscmr-dp*sin  (betabx)  ; 
delbox  ( j  ,  k)  =delcmr+dp*cos  ( betabx)  ; 

end 

end 

%  First  coirpute  the  velocity  and  angle  values  in  the  test  section 
%  frame  of  reference. 

%  Coirpute  angle  of  vector 

coirpl=  [  ]  ; 

TS5Lng=  [  ]  ; 

TSvel= [ ] ; 

coirpl=difeps+difdel*i; 

TSang= -angle  (compl)  *180/pi+90; 

%  Divide  distance  in  microns  by  del tat  in  microseconds  to  get  m/s 
TSvel=abs  (compl)  /pulse_dt; 

end 


% 

%  Title:  CCplotS.m 

%  Author:  Jeffrey  Sons 

%  Parent  program:  jpbpivS 

%  Child  subroutine (s)  : 

%  Date:  25  Mar  1997 

% 

%  This  program  plots  vectors  and  contour  plots  and  histograms 
%  given  the  information  from  CCprepplot.m 

%  If  these  programs  haven't  been  run  yet,  can’t  plot... 

if  (epsbox==[]  I  delbox==[]  |  difeps==E]  |  difdel==[]  |... 

inax_velocity== [ ]  |  min_velocity== [ ]  I  min_angle== [ ]  |  max_angle== [ ]  | 
TSang== [ ]  |  TSvel== [ ]  |  goodbox== [ ]  |  alpha== [ } ) 

fprintf ( 'Error :  Need  velocities,  boxes  and  parameters  first !!\n’); 

else 

%  Plot  the  data,  nondimens ionali zed  by  the 
%  tube  hydraulic  diameter  =  10000  urn. 

%  Open  a  PlotWin  for  plotting  velocity  vectors 

if  (PlotWin==0) 

Pi otWin= figure; 
orient  landscape 

else 

figure  (PlotWin)  ; 
clf 

end 

set (PlotWin, 'name ' , filename) ; 

%  Plot  vectors 

axes ( 'units ’, 'normalized' , 'position' ,[. 1  .1  .4  .63]); 

set(gca, 'Box' , 'on' ) ; 

hold  on 

axis ( ' equal ' ) ; 

set(gca,  'xtick' , [-.5 : .05 : .5] ) ; 
set(gca,  'ytick' , [0 : 0 . 05 :10] ) ; 
grid  on 

jpbquiv(epsbox/10000,delbox/10000,difeps/10000, difdel/10000 , scale, ' -y 
xlabeK  'y/d  from  centerline' )  ; 


ylabel('x/d  from  passage  inlet'); 

title ( [ 'Velocity  Vectors  for  ' , filename, '  {o=no  vector) ']); 

text( 'units' , 'inches' , 'position' , [-.5,0] , 'rotation' , (90) , 'string' , 'Leading' ) ; 
text ( 'units' , 'inches' , 'position' , [4.5, .6] , 'rotation' , (-90) , 'string' , 'Trailing' ) 

%  Identify  the  boxes  without  vectors 

hold  on 

[niplot,nplot]  =size (TSang)  ,- 
eps2ero= [ ] ; 
delzero= [ ] ; 
for  k=l:nplot 

for  j=:l:inplot 

if  goodbox( j ,k) ==0 

epsz€ro=[eps2ero;epsbox(j,k) /lOOOO] ; 
delzero=[delzero;delbox(j ,k) /lOOOO] ; 

end 

end 

end 

if  eps2ero~=[] 

plot (epszero,delzero,  'ro')  ; 

end 

hold  off 

%  Enter  the  rrm  parameters 
if  Renum==[] 

Reniim=input  ( '  Enter  Reynolds  number :  ' )  ; 

Rotnum= input { ' Enter  Rotation  number ;  ' ) ; 
zoverdh=input ( ' Enter  z/dh:  ' ) ; 

end 

relab=  [  'Reynolds  #  =  '  ,niam2str  (Renum)  ]  ; 
rotlab= [' Rotation  #  =  ' ,num2str (Rotnum) ] ; 

2dlab=['2/dh  =  '  ,nvim2str  (zoverdh)  ]  ; 

text( 'units ‘ , 'normalized* , 'position' , [ .5, 1.3] , 'string' , [relab] ) ; 

text{ ‘units' , 'normalized* , 'position' ,[.5,1.26], 'string' , [rotlab] ) ; 

text( 'units' , 'normalized' , 'position* , [ .5,1.22] , 'string' , [zdlab] ) ; 

text{ 'units' , 'normalized' , 'position' , [-.1,1.3], 'string' , [ 'Date:  • ,date] ) ; 

text ( 'units' , 'normalized' , 'position' , [-.1,1.26] , 'string' , [ 'File:  ', filename] ) ; 

perc=num2str  (100 *length( find (goodbox) )  /  (rrplot*nplot) )  ; 

perclcLb=  [perc  ,  '  %  boxes  with  vectors '  ]  ; 

text ( 'units' , 'normalized' , 'position' ,[-.1,1.22], 'string' , [perclab] ) ; 
nmin=num2str  (min_angle-alpha*180/pi)  ; 
nmax=num2str  (inax_angle-alpha*180/pi)  ; 

anglab=  [ 'Angle  search  range:  ',nmin,  '  <  angle  <  '  ,nmax]  ; 
text(  'units' ,  'normalized' ,  'position' ,  [-.1,1.16] ,  'string' ,  [anglab] )  ,- 
nmin=num2  s t r  (min_ve loc  i ty )  ; 
nmax=niim2str  (max_velocity)  ; 

vellab=[ 'Velocity  search  range:  ’,nmin,  '  <  velocity  <  ',nmax]; 
text(  'Linits' ,  'normalized' ,  'position' ,  [-.1,1.12] ,  'string' ,  [vellab] )  ; 

%  Calculate  axial  and  transverse  velocity  components  in  m/s 

TSaxvel=TSvel . *cos (TSang*pi/180) ; 

TStrvel=TSvel .  *sin  (TSang*pi/180)  ; 

%  Plot  mean  axial  velocity  as  a  function  of  y/d 

axes ( 'units' , 'normalized' , 'position' ,[ .575  .1  .375  .175]); 

set (gca, ' Box ' , ' on ' ) ; 

mneps= [ ] ; 

innaxv=  [  ]  ; 

mntrv= [ ] ; 

for  k=l : length (xbox) 

mneps  (k)  =mean  {epsbox(  find  (goodbox  ( :  ,k) )  ,k)  /lOOOO)  ; 
mnaxv(k)  =mean(TSaxvel  (find (goodbox ( :  ,k) )  ,k) )  ; 
mntrv(k)  =mean(TStrvel  (find (goodbox ( :  ,k) )  ,k)  )  ; 

end 

plot  (mneps ,  mnaxv)  ; 
grid  on 

set (gca,  ' xtick' , [- .5 : . 1 : . 5] ) ; 
set (gca,  'ytick' , [-5 : . 5 : 10] ) ; 
xlabeK  'y/d  from  centerline* )  ; 

axmean=num2str  (mean (mean (TSaxvel  (find (goodbox)  )))); 

title ( [ 'Mean  Axial  Velocity  vs.  y/d  (MEAN  =  ' ,axmean, '  m/s) ' ] ) ; 

%  Plot  mean  transverse  velocity  as  a  function  of  y/d 

axes ( 'units' , 'normalized' , 'position' ,[ .575  .325  .375  .175]); 
set (gca, 'Box' , 'on' ) ; 
plot  (mneps ,  mntrv) ; 
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grid  on 

set(gca,  'xtick' , [-.5: .1: .5] ) ; 
set(gca,  'ytick' , [-10 : .2 :10] ) ; 
set (gca,  ' xticklabels 

trmean=num2str  (mean (mean  (TStrveK  find (goodbox) ) ) ) )  ; 

title([‘Mean  Transverse  Velocity  vs.  y/d  (MEAN  =  '.trmean,  •  m/s)  ']); 

%  Plot  angle  histogram 

axes ( 'units', 'normalized', 'position' ,[ .575  .8  .375  .12]) 
hist (TSang( find (goodbox) ) , [-90:2.5:270] ) ; 
set(gca,  'xtick' , [-90 :10 :270] ) ; 
grid  on 

innang=:mean  (mean  (TSang  ( find  (goodbox) ) ) )  ; 
inang=num2  s  t  r  (mnang )  ; 

stdangl=sqrt  (mean (mean {  (TSang (find (goodbox)  ) -mnang)  .  *  (TSang (find (goodbox) )  -mnang) )  ) ) ; 

stdang=num2str  (stdangl)  ; 

sect2= [ 'Angle  Histogram  (deg):  mean=']; 

nmin=num2str  (min_angle-alpha*180/pi )  ; 

nmax=num2str  (max_angle-alpha*180/pi)  ; 

title  ( [sect2  ,mang,  '  ,  std  dev=  ‘ ,  stdang] )  ; 

set (gca,  'xlim' , [ (min (min (TSang (find (goodbox) ) ) )-5)  (max (max (TSang (find (goodbox) ) ) )+5) ] ) ; 
%  set (gca,  'xlim' , [ (min_angle-alpha*180/pi)  (max_angle-alpha*180/pi) ] ) ; 

%  Plot  velocity  histogram 

axes ( 'lonits ', 'normalized' , 'position' ,[  .575  .6  .375  .12]) 
hist  (TSvel  ( find  (goodbox)  )  ,  [  0  :  .  2  : 10  ] )  ; 
set (gca,  'xtick ' , [0 : .5 : 10] ) ; 
grid  on 

mnvel=mecin (mean (TSvel  (find (goodbox)  ))); 
mvel=:n\m2str  (mnvel)  ; 

stdvelo=S(3rt  (mean (mean (  (TSvel  (find (goodbox) )  -mnvel)  .  *  (TSvel  (find (goodbox) )  -mnvel)  ))); 
stdvel=num2str  (stdvelo)  ; 

sect3=[ 'Velocity  Histogram  (m/s):  mean=']; 

nmin=num2str  (min_velocity)  ; 

nmax=num2str  (max_velocity)  ; 

title ( [sect3,mvel, '  ,std  dev=' ,stdvel] ) ; 

set  (gca,  'xlim'  ,  [min_velocity  max_velocity] )  ; 

end 


Title:  crclcntr.m 
Author:  Jeffrey  Bons 
Parent  program:  jpbpivl.m 
Child  subroutine (s) : 

Date:  22  July  1996 

This  program  solves  for  the  center  of  the  circle  of  a  given 
radius,  knowing  2  points  on  the  circle.  Also  need  to  know 
which  "side"  (+l=down  or  -l=up)  of  the  points  to  look  for 
the  center. 

%  Need  certain  inputs  from  jpbpivl  parameter  list  to  process 

if  (lftcrossx==[]  I  lftcrossy==[]  |  corrxy==[]  |  hfact===[]  |... 
vfact== [ ]  I  rad_cross== [ ] ) 

fprintf ( 'ERROR:  Set  rad_cross  or  run  corrimagjb  or  xyresol . . \n ' ) ; 

else 

radl=rad_cross ; 

%  Read  in  the  (x,y)  pixel  coordinates  of  left  wire  cross  and 
%  convert  to  micrometers 

xla=lf tcrossx*hf act ; 
yla=lf tcrossy*vf act ; 

%  Calculate  location  of  right  cross  from  corrimagjb  del tax, y  data 

xlb=xla+corrxy (1,1) *hf act ; 
ylb=yla+corrxy (1,2) *vf act ; 

%  Compute  the  center  coordinates  by  first  guessing  yc, 

%  then  solving  for  xc  via  the  circle  equation  for  (xlb,ylb) . 

%  Then  use  the  (xla,yla)  circle  equation  to  "re "-solve  for 
%  yc... compare  the  2  and  iterate  xintil  they  converge... 
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%  since  2  centers  can  be  found  given  only  2  points  and  a  radius 
%  start  with  a  ycl  guess  which  will  converge  to  the  "correct" 

%  center  for  the  figure  {assuming  a  center  of  rotation  which 
%  is  above  the  image  [negative  y] )  . 

side=-l; 

ycl=yla+side*400000 ; 

del=l; 

it=l; 

xc=l; 

yc2=l; 

while  (del>le-9  &  it<120  &  imag(xc)==0  &  iinag{yc2 )  ==0) 
it=it+l; 

xc=xlb-sqrt(radl"2-(ylb-ycl)"2) ;  %take  the  negative  root 
yc2=yla-sqrt  (radl'"2-  (xla-xc)  "^2)  ; 
del=abs  ( (ycl'-yc2)  /yc2)  ; 
if (rem(it, 2) ==0) 

fprintf ( • it=%d  xc=%.4f  yc=%.4f  del=%.4f\n' , it,xc/hfact,yc2/vfact,del) 

end 

ycl=yc2; 

end 

fprintf  CXnTotal  #  of  iterations=  %d\n',it); 

%  With  this  value  for  yc,  solve  for  xc 
yc=ycl; 

xc=xlb-sqrt(radl"2-(ylb-«yc)"'2) ;  %again  take  the  negative  root 

%  print  out  xc,yc  result  in  pixels 

rotcentx=xc/hf act ; 
ro  tcenty=yc /vf  act ; 

fprintf ('Center  is  at:  x  =  %.4f  pixels\n',rotcentx); 

fprintf (• \t\ty  =  %.4f  pixelsXn' ,rotcenty) ; 
clear  radl  xc  yc  ycl  yc2  xla  yla  xlb  ylb 

end 
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